|
21 | 21 | (defn regexp-mod [xs] (= (second xs) :clojureRegexpMod)) |
22 | 22 | (def !regexp-mod (complement regexp-mod)) |
23 | 23 |
|
24 | | -(defsyntaxtest number-literals-test |
| 24 | +(defsyntaxtest test-number-literals |
25 | 25 | ["%s" |
26 | 26 | ["1234567890" number "+1" number "-1" number ; Integer |
27 | 27 | "0" number "+0" number "-0" number ; Integer zero |
|
79 | 79 | "0xfe-1" !number |
80 | 80 | "2r1e-1" !number]]) |
81 | 81 |
|
82 | | -(comment (test #'number-literals-test)) |
| 82 | +(comment (test #'test-number-literals)) |
83 | 83 |
|
84 | 84 | ;; TODO: Finish me! (this was in an old git stash) |
85 | 85 | ;; (defsyntaxtest keywords-test |
|
103 | 103 | ;; |
104 | 104 | ;; (comment (test #'keywords-test)) |
105 | 105 |
|
106 | | -(defsyntaxtest java-regexp-literals-test |
| 106 | +(defsyntaxtest test-java-regexp-literals |
107 | 107 | ["#\"%s\"" |
108 | 108 | [;; http://docs.oracle.com/javase/7/docs/api/java/util/regex/Pattern.html |
109 | 109 | ;; |
|
386 | 386 | "\"\\[]\"" (partial = [:clojureRegexp :clojureRegexpEscape :clojureRegexpEscape :clojureRegexp :clojureRegexp]) |
387 | 387 | "\"\\\\[]\"" (partial = [:clojureRegexp :clojureRegexpEscape :clojureRegexpEscape :clojureRegexpCharClass :clojureRegexpCharClass :clojureRegexp])]]) |
388 | 388 |
|
389 | | -(comment (test #'java-regexp-literals-test)) |
| 389 | +(comment (test #'test-java-regexp-literals)) |
0 commit comments