30 lines
945 B
Text
30 lines
945 B
Text
|
(ns lambdaisland.regal.parse-test
|
||
|
|
(:require [clojure.test :refer [deftest testing is are]]
|
||
|
|
[lambdaisland.regal :as regal]
|
||
|
|
[lambdaisland.regal.parse :as parse]))
|
||
|
|
|
||
|
|
(deftest parse-whitespace-test
|
||
|
|
(is (= [:class " " :tab :newline :vertical-tab :form-feed :return]
|
||
|
|
(regal/with-flavor :java
|
||
|
|
(parse/parse-pattern "\\s"))))
|
||
|
|
|
||
|
|
(is (= :whitespace
|
||
|
|
(regal/with-flavor :ecma
|
||
|
|
(parse/parse-pattern "\\s"))))
|
||
|
|
|
||
|
|
(is (= [:not " " :tab :newline :vertical-tab :form-feed :return]
|
||
|
|
(regal/with-flavor :java
|
||
|
|
(parse/parse-pattern "\\S"))))
|
||
|
|
|
||
|
|
(is (= :non-whitespace
|
||
|
|
(regal/with-flavor :ecma
|
||
|
|
(parse/parse-pattern "\\S")))))
|
||
|
|
|
||
|
|
(deftest ^{:kaocha/pending
|
||
|
|
"Needs a special case in the regex generation code"}
|
||
|
|
whitespace-round-trip
|
||
|
|
(is (= "\\s"
|
||
|
|
(regal/with-flavor :java
|
||
|
|
(regal/pattern
|
||
|
|
(parse/parse-pattern "\\s"))))))
|