diff options
| author | smihica <smihica@gmail.com> | 2014-06-11 18:54:31 +0900 |
|---|---|---|
| committer | smihica <smihica@gmail.com> | 2014-06-11 18:54:31 +0900 |
| commit | 949d3d07b1d120be003369d1fc97f78e1a590062 (patch) | |
| tree | f252e759fd9f78ae3b6737afeb9bcbb837d1306b /src/test.el | |
| parent | 8fe79a5ffdff3846b8ae94622762acf935177595 (diff) | |
| download | emmet-mode-949d3d07b1d120be003369d1fc97f78e1a590062.tar.lz emmet-mode-949d3d07b1d120be003369d1fc97f78e1a590062.tar.xz emmet-mode-949d3d07b1d120be003369d1fc97f78e1a590062.zip | |
Added Lorem Ipsum codes
Diffstat (limited to 'src/test.el')
| -rw-r--r-- | src/test.el | 50 |
1 files changed, 44 insertions, 6 deletions
diff --git a/src/test.el b/src/test.el index 73c17b8..3477192 100644 --- a/src/test.el +++ b/src/test.el @@ -52,6 +52,12 @@ 'emmet-html-transform ,@tests)) +(defmacro define-emmet-unit-test-case (name fn &rest tests) + `(emmet-test-cases 'assign ',name + ,fn + ',(loop for x on tests by #'cddr collect + (cons (car x) (cadr x))))) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; XML-abbrev tests @@ -344,6 +350,44 @@ "xxx#id.cls p=1{txt}" ("<xxx id=\"id\" class=\"cls\" p=\"1\">txt</xxx>")) +(define-emmet-unit-test-case Lorem-ipsum + #'emmet-expr + "lorem" + ((filter ("html") (text (lorem 30))) . "") + + "ipsum" + ((filter ("html") (text (lorem 30))) . "") + + "p*3>lorem10" + ((filter + ("html") + (list ((parent-child (tag ("p" t nil nil nil nil)) (text (lorem 10))) + (parent-child (tag ("p" t nil nil nil nil)) (text (lorem 10))) + (parent-child (tag ("p" t nil nil nil nil)) (text (lorem 10)))))) . "") + + "ul.generic-list>ipsum3*3" + ((filter + ("html") + (parent-child + (tag ("ul" t nil ("generic-list") nil nil)) + (list ((text (lorem 3)) + (text (lorem 3)) + (text (lorem 3)))))) . "") + + "ul.generic-list>(li>lorem1000)*3" + ((filter + ("html") + (parent-child + (tag ("ul" t nil ("generic-list") nil nil)) + (list ((parent-child + (tag ("li" t nil nil nil nil)) + (text (lorem 1000))) + (parent-child + (tag ("li" t nil nil nil nil)) + (text (lorem 1000))) + (parent-child + (tag ("li" t nil nil nil nil)) + (text (lorem 1000))))))) . "")) (define-emmet-transform-html-test-case Filter-comment "a.b|c" ("<!-- .b -->" @@ -396,12 +440,6 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; CSS-abbrev tests -(defmacro define-emmet-unit-test-case (name fn &rest tests) - `(emmet-test-cases 'assign ',name - ,fn - ',(loop for x on tests by #'cddr collect - (cons (car x) (cadr x))))) - (define-emmet-unit-test-case CSS-toknize #'emmet-css-toknize "" ("") |