[shave-nst-yak] Class tests and criterion for it

sbryant · Oct 2, 2011 · d63eef9 · d63eef9
1 parent ec788f2
commit d63eef9
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/tests/tests.lisp b/tests/tests.lisp
@@ -20,6 +20,9 @@
 (def-criterion-alias (:id value) `(:seq (:equal :id)
                                         (:word ,value)))
 
+(def-criterion-alias (:class value) `(:seq (:equal :class)
+                                           (:word ,value)))
+
 ;; Groups
 (def-test-group parse-tests ()
   (:documentation "Tests basics of CSS string parsing"))
@@ -53,3 +56,7 @@
 (def-test (can-parse-just-id :group parse-tests)
     (:seq (:id :my-id))
   (read-css "#my-id"))
+
+(def-test (can-parse-just-class :group parse-tests)
+    (:seq (:class :my-class))
+  (read-css ".my-class"))