luciano/babashka
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Update rewrite-clj tests

Browse source
This commit is contained in:
Michiel Borkent 2023-09-15 16:03:05 +02:00
parent ad4935077d
commit 6467316dc8
1 changed files with 70 additions and 72 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

142
test-resources/lib_tests/rewrite_clj/node/coercer_test.cljc
View file

@ -1,67 +1,77 @@
(ns rewrite-clj.node.coercer-test
(:require [clojure.test :refer [deftest testing is are]]
[rewrite-clj.node :as node]
[rewrite-clj.node.protocols :as protocols]
[rewrite-clj.node.regex :as regex]
[rewrite-clj.parser :as p]))
(deftest t-sexpr->node->sexpr-roundtrip
(testing "simple cases roundtrip"
(are [?sexpr expected-tag ]
(are [?sexpr expected-tag expected-type]
(let [n (node/coerce ?sexpr)]
(is (node/node? n))
(is (= ?sexpr (node/sexpr n)))
(is (string? (node/string n)))
(is (= expected-tag (node/tag n)) "tag")
#_(is (= expected-type (protocols/node-type n)) "node-type")
(is (not (meta n)))
(is (= (type ?sexpr) (type (node/sexpr n)))))
(if (seq? ?sexpr)
(is (seq? (node/sexpr n)))
(is (= (type (node/sexpr n)) (type ?sexpr) ))))
;; numbers
;; note that we do have an integer-node, but rewrite-clj never parses to it
;; so we never coerce to it either
3 :token ;;:token
3N :token ;;:token
3.14 :token ;;:token
3.14M :token ;;:token
3e14 :token ;;:token
3 :token :token
3N :token :token
3.14 :token :token
3.14M :token :token
3e14 :token :token
;; ratios are not valid in cljs
#?@(:clj [3/4 :token ;;:token
]
)
#?@(:clj [3/4 :token :token])
;; symbol/keyword/string/...
'symbol :token ;;:symbol
'namespace/symbol :token ;;:symbol
:keyword :token ;;:keyword
:1.5.1 :token ;;:keyword
::keyword :token ;;:keyword
::1.5.1 :token ;;:keyword
:namespace/keyword :token ;;:keyword
'symbol :token :symbol
'namespace/symbol :token :symbol
:keyword :token :keyword
:1.5.1 :token :keyword
::keyword :token :keyword
::1.5.1 :token :keyword
:namespace/keyword :token :keyword
"" :token ;;:string
"hello, over there!" :token ;;:string
"multi\nline" :multi-line ;;:string
" " :token ;;:string
"\n" :multi-line ;;:string
"\n\n" :multi-line ;;:string
"," :token ;;:string
"" :token :string
"hello, over there!" :token :string
"multi\nline" :token :string
" " :token :string
"\n" :token :string
"\n\n" :token :string
"," :token :string
"inner\"quote" :token :string
"\\s+" :token :string
;; seqs
[] :vector ;;:seq
[1 2 3] :vector ;;:seq
() :list ;;:seq
'() :list ;;:seq
(list 1 2 3) :list ;;:seq
#{} :set ;;:seq
#{1 2 3} :set ;;:seq
[] :vector :seq
[1 2 3] :vector :seq
() :list :seq
'() :list :seq
(list 1 2 3) :list :seq
#{} :set :seq
#{1 2 3} :set :seq
(cons 1 [2 3]) :list :seq
(lazy-seq [1 2 3]) :list :seq
;; date
#inst "2014-11-26T00:05:23" :token ;; :token
))
(testing "multi-line string newline variants are normalized"
#inst "2014-11-26T00:05:23" :token :token))
(testing "multi-line string newline variants are preserved"
(let [s "hey\nyou\rover\r\nthere"
n (node/coerce s)]
(is (= "hey\nyou\nover\nthere" (node/sexpr n))))))
(is (= s (node/sexpr n)))))
(testing "coerce string roundtrip"
(is (= "\"hey \\\" man\"" (-> "hey \" man" node/coerce node/string))))
(testing "coerce string equals parsed string"
(is (= (p/parse-string "\"hello\"") (node/coerce "hello")))))
(deftest
t-quoted-list-reader-location-metadata-elided
@ -81,7 +91,7 @@
(let [n (node/coerce ?sexpr)]
(is (node/node? n))
(is (= :map (node/tag n)))
;; (is (= :seq protocols/node-type n))
#_(is (= :seq (protocols/node-type n)))
(is (string? (node/string n)))
(is (= ?sexpr (node/sexpr n)))
;; we do not restore to original map (hash-map or array-map),
@ -94,27 +104,16 @@
(array-map)
(array-map :d 4 :e 5)))
(deftest t-namespaced-maps-coerce-to-maps
(are [?sexpr]
(let [n (node/coerce ?sexpr)]
(is (node/node? n))
(is (= :map (node/tag n)))
;; (is (= :seq (protocols/node-type n)))
(is (string? (node/string n)))
(is (= ?sexpr (node/sexpr n)))
(is (map? (node/sexpr n))))
#:prefix {:a 1 :b 2}
#::{:c 3 :d 4}
#::p{:e 5 :f 6}))
(deftest t-sexpr->node->sexpr-roundtrip-for-regex
(are [?in]
(let [n (node/coerce ?in)]
(is (node/node? n))
(is (= :regex (node/tag n)))
;; (is (= :regex (protocols/node-type n)))
#_(is (= :regex (protocols/node-type n)))
(is (string? (node/string n)))
#_(is (= (list 're-pattern (regex/pattern-string-for-regex ?in))
(is (= (list 're-pattern (regex/pattern-string-for-regex ?in))
(node/sexpr n))))
#"abc"
#"a\nb\nc"
@ -127,7 +126,7 @@
(let [n (node/coerce #'identity)]
(is (node/node? n))
(is (= :var (node/tag n)))
#_(is (= :reader (protocols/node-type n)))
(is (= :reader (protocols/node-type n)))
(is (= '(var #?(:clj clojure.core/identity :cljs cljs.core/identity)) (node/sexpr n)))))
(deftest t-nil
@ -153,31 +152,30 @@
(deftest t-nodes-coerce-to-themselves
(testing "parsed nodes"
;; lean on the parser to create node structures
(are [?s ?tag #_?type]
(are [?s ?tag ?type]
(let [n (p/parse-string ?s)]
(is (= n (node/coerce n)))
(is (= ?tag (node/tag n)))
#_(is (= ?type (protocols/node-type n))))
";; comment" :comment ;;:comment
"#! comment" :comment ;;:comment
"#(+ 1 %)" :fn ;;:fn
":my-kw" :token ;;:keyword
"^:m1 [1 2 3]" :meta ;;:meta
"#:p1{:a 1 :b 2}" :namespaced-map ;;:namespaced-map
"'a" :quote ;;:quote
"#'var" :var ;;:reader
"#=eval" :eval ;;:reader
"@deref" :deref ;;:deref
"#mymacro 44" :reader-macro ;;:reader-macro
"#\"regex\"" :regex ;;:regex
"[1 2 3]" :vector ;;:seq
"42" :token ;;:token
"sym" :token ;;:symbol
"#_ 99" :uneval ;;:uneval
" " :whitespace ;;:whitespace
"," :comma ;;:comma
"\n" :newline ;;:newline
))
";; comment" :comment :comment
"#! comment" :comment :comment
"#(+ 1 %)" :fn :fn
":my-kw" :token :keyword
"^:m1 [1 2 3]" :meta :meta
"#:p1{:a 1 :b 2}" :namespaced-map :namespaced-map
"'a" :quote :quote
"#'var" :var :reader
"#=eval" :eval :reader
"@deref" :deref :deref
"#mymacro 44" :reader-macro :reader-macro
"#\"regex\"" :regex :regex
"[1 2 3]" :vector :seq
"42" :token :token
"sym" :token :symbol
"#_ 99" :uneval :uneval
" " :whitespace :whitespace
"," :comma :comma
"\n" :newline :newline))
(testing "parsed forms nodes"
(let [n (p/parse-string-all "(def a 1)")]
(is (= n (node/coerce n)))