15 lines
415 B
Clojure
15 lines
415 B
Clojure
(ns babashka.lambdaisland.regal-test
|
|
(:require [clojure.test :as t :refer [deftest is]]))
|
|
|
|
(prn :requiring :lambdaisland)
|
|
(require '[lambdaisland.regal :as regal])
|
|
(prn ::done :requiring :lambdaisland)
|
|
|
|
(def r [:cat
|
|
[:+ [:class [\a \z]]]
|
|
"="
|
|
[:+ [:not \=]]])
|
|
|
|
(deftest regal-test
|
|
(is (= "[a-z]+=[^=]+" (str (regal/regex r))))
|
|
(is (= "foo=bar" (re-matches (regal/regex r) "foo=bar"))))
|