[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 4f79b74 373/433: Add two failing tests
From: |
Dmitry Gutov |
Subject: |
[elpa] master 4f79b74 373/433: Add two failing tests |
Date: |
Thu, 15 Mar 2018 19:44:38 -0400 (EDT) |
branch: master
commit 4f79b74699e25cc97bc47911783ede834952d3e4
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>
Add two failing tests
Refs #26
---
tests/html-erb.el | 57 ++++++++++++++++++++++++++++++++++++++-----------------
1 file changed, 40 insertions(+), 17 deletions(-)
diff --git a/tests/html-erb.el b/tests/html-erb.el
index 6d8fab7..ff23a9b 100644
--- a/tests/html-erb.el
+++ b/tests/html-erb.el
@@ -13,17 +13,22 @@
(overlay-end mmm-current-overlay)))
(defmacro mmm-erb-deftest (name &rest body)
- `(ert-deftest ,(intern (format "mmm-erb-%s" name)) ()
- (ert-with-test-buffer nil
- (let ((buffer-file-name "foo.html.erb")
- (mmm-global-mode 'maybe)
- mmm-parse-when-idle
- mmm-mode-ext-classes-alist)
- (mmm-add-mode-ext-class 'html-erb-mode "\\.html\\.erb\\'" 'erb)
- (html-erb-mode)
- (mmm-mode-on-maybe)
- (should mmm-mode)
- ,@body))))
+ (let ((expected-result (and (eq (car body) :expected-result)
+ (nth 1 body))))
+ (when expected-result
+ (setq body (nthcdr 2 body)))
+ `(ert-deftest ,(intern (format "mmm-erb-%s" name)) ()
+ :expected-result ,(or expected-result :passed)
+ (ert-with-test-buffer nil
+ (let ((buffer-file-name "foo.html.erb")
+ (mmm-global-mode 'maybe)
+ mmm-parse-when-idle
+ mmm-mode-ext-classes-alist)
+ (mmm-add-mode-ext-class 'html-erb-mode "\\.html\\.erb\\'" 'erb)
+ (html-erb-mode)
+ (mmm-mode-on-maybe)
+ (should mmm-mode)
+ ,@body)))))
(put 'mmm-erb-deftest 'lisp-indent-function 'defun)
@@ -38,20 +43,38 @@
(should (mmm-update-current-submode))
(should (string= " end " (mmm-erb-current-overlay-string))))
-(mmm-erb-deftest attribute-values-are-strings
- (insert mmm-erb-text)
- (mmm-apply-all)
+(defun mmm-erb-assert-string-syntax ()
(goto-char (point-min))
(search-forward "\"")
(should (nth 3 (syntax-ppss)))
(search-forward "\"")
(should (not (nth 3 (syntax-ppss)))))
-(mmm-erb-deftest quotes-outside-tags-dont-make-strings
- (insert "<% foo do %><p>\"foo bar\"</p><% end %>")
- (mmm-apply-all)
+(defun mmm-erb-assert-non-string-syntax ()
(goto-char (point-min))
(search-forward "\"")
(should (not (nth 3 (syntax-ppss))))
(search-forward "\"")
(should (not (nth 3 (syntax-ppss)))))
+
+(mmm-erb-deftest attribute-values-are-strings
+ (insert mmm-erb-text)
+ (mmm-apply-all)
+ (mmm-erb-assert-string-syntax))
+
+(mmm-erb-deftest quotes-outside-tags-dont-make-strings
+ (insert "<% foo do %><p>\"foo bar\"</p><% end %>")
+ (mmm-apply-all)
+ (mmm-erb-assert-non-string-syntax))
+
+(mmm-erb-deftest gt-inside-subregion-doesnt-change-nesting
+ :expected-result :failed
+ (insert "<% if 2 > 1 %><div class=\"foo\"/><% end %>")
+ (mmm-apply-all)
+ (mmm-erb-assert-string-syntax))
+
+(mmm-erb-deftest lt-inside-subregion-doesnt-change-nesting
+ :expected-result :failed
+ (insert "<% if 2 < 1 %><p>\"foo bar\"</p><% end %>")
+ (mmm-apply-all)
+ (mmm-erb-assert-non-string-syntax))
- [elpa] master dddd397 245/433: * .cvsignore: Add semantic.cache., (continued)
- [elpa] master dddd397 245/433: * .cvsignore: Add semantic.cache., Dmitry Gutov, 2018/03/15
- [elpa] master eb8c964 359/433: Add "Maintainer" and some copyright headers, Dmitry Gutov, 2018/03/15
- [elpa] master cc0e3d9 382/433: Merge pull request #35 from knu/fix-html-php, Dmitry Gutov, 2018/03/15
- [elpa] master 389fc1b 246/433: Updated revision date., Dmitry Gutov, 2018/03/15
- [elpa] master 1742b06 362/433: Add mmm-erb.el to lisp_LISP, Dmitry Gutov, 2018/03/15
- [elpa] master 4eeeef0 371/433: Add first test ever, Dmitry Gutov, 2018/03/15
- [elpa] master 0d4108b 345/433: Make README more up-to-date, Dmitry Gutov, 2018/03/15
- [elpa] master f261642 398/433: Merge pull request #50 from syohex/fix-invalid-function-call, Dmitry Gutov, 2018/03/15
- [elpa] master 4085494 402/433: Release 0.5.4, Dmitry Gutov, 2018/03/15
- [elpa] master 99539e8 340/433: Rewrite mmm-regions-alist for performance, Dmitry Gutov, 2018/03/15
- [elpa] master 4f79b74 373/433: Add two failing tests,
Dmitry Gutov <=
- [elpa] master bdc7d47 273/433: (html-js): Support JS version in language attribute., Dmitry Gutov, 2018/03/15
- [elpa] master f926613 206/433: # Applied patch from Alan Shutko <address@hidden>., Dmitry Gutov, 2018/03/15
- [elpa] master c68cee0 411/433: Merge pull request #73 from AdamNiederer/master, Dmitry Gutov, 2018/03/15
- [elpa] master 15c766d 216/433: * mmm-vars.el (mmm-classes-alist): Document new keywords., Dmitry Gutov, 2018/03/15
- [elpa] master 6e50485 268/433: Added html-php submode class., Dmitry Gutov, 2018/03/15
- [elpa] master c6a30e3 251/433: Trimmed ancient docstring., Dmitry Gutov, 2018/03/15
- [elpa] master 30811bc 249/433: Added new files to be byte-compiled (Joe Kelsey), Dmitry Gutov, 2018/03/15
- [elpa] master 7b783ee 308/433: Don't confuse script tags with EJS tags, Dmitry Gutov, 2018/03/15
- [elpa] master 00c99c7 278/433: (lisp_LISP): Added mmm-myghty.el., Dmitry Gutov, 2018/03/15
- [elpa] master ad24c9d 275/433: * mmm-noweb.el (mmm-syntax-region-list), Dmitry Gutov, 2018/03/15