Permalink
Browse files

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

  • Loading branch information...
1 parent ec788f2 commit d63eef96733c6628e3428ef5949d4bf63545a509 @sshirokov sshirokov committed Oct 2, 2011
Showing with 7 additions and 0 deletions.
  1. +7 −0 tests/tests.lisp
View
@@ -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"))

0 comments on commit d63eef9

Please sign in to comment.