665ae4dd97
* Add tests for markdown-clj and tools.namespace
See comment for why only one markdown test could be run.
Closes #1069 and #1064
* Convert 10 test libs using add-libtest
Also improved add-libtest to only require maven artifact
and rely on clojars for getting git-url most of the time
* Convert 8 more test libs using add-libtest
Also updated table and added comment for newline test
* Fix doric test
* Disable tools.namespace test that fails on windows
* Added dozen manual test libs and converted 2 test libs
add-libtest.clj supports manually-added and test-directories options
* Converts last tests to test namespaces and write libraries.csv
* Add a number of library tests from projects.md
Also add more docs around adding test libs and tweak add script
* Use :sha for gitlib and older clojure cli
* Revert "Use :sha for gitlib and older clojure cli"
This reverts commit c663ab8368.
* Fix and disable failing tests
Disabled tests that fail consistently and fixed windows one
133 lines
4.7 KiB
Clojure
133 lines
4.7 KiB
Clojure
(ns borkdude.rewrite-edn-test
|
|
(:require [borkdude.rewrite-edn :as r]
|
|
[clojure.test :as t :refer [deftest testing is]]))
|
|
|
|
(deftest assoc-test
|
|
(testing "Base case"
|
|
(is (= "{:a 1}"
|
|
(str (r/assoc
|
|
(r/parse-string "{}")
|
|
:a 1)))))
|
|
(testing "When there's only one existing, keys are added on a new line"
|
|
(is (= "
|
|
{:a 1
|
|
:b 1}"
|
|
(str (r/assoc
|
|
(r/parse-string "
|
|
{:a 1}")
|
|
:b 1)))))
|
|
(testing "Unless there are already keys on the same line"
|
|
(is (= "{:a 1 :b 2 :c 3}"
|
|
(str (r/assoc
|
|
(r/parse-string "{:a 1 :b 2}")
|
|
:c 3)))))
|
|
(testing "when map is already multi-line, new keys are added on new line"
|
|
(is (= "
|
|
{:a 1
|
|
:b 2}
|
|
;; this is a cool map"
|
|
(str (r/assoc
|
|
(r/parse-string "
|
|
{:a 1}
|
|
;; this is a cool map")
|
|
:b 2)))))
|
|
(testing "Updating existing val"
|
|
(is (= "{:a 2}"
|
|
(str (r/assoc
|
|
(r/parse-string "{:a 1}")
|
|
:a 2)))))
|
|
(testing "Something between key and val"
|
|
(is (= "{:a #_:something 2}"
|
|
(str (r/assoc
|
|
(r/parse-string "{:a #_:something 1}")
|
|
:a 2)))))
|
|
(testing "Comment at the end"
|
|
(is (= "{:a 2} ;; this is a cool map"
|
|
(str (r/assoc
|
|
(r/parse-string "{:a 1} ;; this is a cool map")
|
|
:a 2)))))
|
|
(testing "Vector index assoc"
|
|
(is (= "[9 8 99 7] ;; this is a cool vector"
|
|
(str (r/assoc
|
|
(r/parse-string "[9 8 3 7] ;; this is a cool vector")
|
|
2 99)))))
|
|
(testing "Vector last index assoc"
|
|
(is (= "[9 8 3 99] ;; this is a cool vector"
|
|
(str (r/assoc
|
|
(r/parse-string "[9 8 3 7] ;; this is a cool vector")
|
|
3 99)))))
|
|
(testing "Vector assoc out of bounds"
|
|
(is (try
|
|
(r/assoc (r/parse-string "[9 8 3 7] ;; this is a cool vector") 9 99)
|
|
false
|
|
(catch java.lang.IndexOutOfBoundsException _ true))))
|
|
(testing "Vector assoc out of bounds with ignored"
|
|
(is (try
|
|
(r/assoc (r/parse-string "[9 8 3 #_99 #_213 7] ;; this is a cool vector") 4 99)
|
|
false
|
|
(catch java.lang.IndexOutOfBoundsException _ true)))))
|
|
|
|
(deftest update-test
|
|
(is (= "{:a #_:foo 2}"
|
|
(str (r/update
|
|
(r/parse-string "{:a #_:foo 1}")
|
|
:a (fn [node]
|
|
(inc (r/sexpr node))))))))
|
|
|
|
(defn qualify-sym-node [sym-node]
|
|
(let [sym (r/sexpr sym-node)]
|
|
(if (or (not (symbol? sym))
|
|
(qualified-symbol? sym))
|
|
sym-node
|
|
(symbol (str sym) (str sym)))))
|
|
|
|
(deftest map-keys-test
|
|
(is (= "
|
|
{foo/foo 1
|
|
bar/bar 2}"
|
|
(str (r/map-keys qualify-sym-node
|
|
(r/parse-string "
|
|
{foo 1
|
|
bar 2}"))))))
|
|
|
|
(deftest update-deps-test
|
|
(is (= "{:deps {foo/foo {:mvn/version \"0.1.0\"}}}"
|
|
(str (r/update (r/parse-string "{:deps {foo {:mvn/version \"0.1.0\"}}}")
|
|
:deps
|
|
(fn [deps-map-node]
|
|
(r/map-keys qualify-sym-node deps-map-node)))))))
|
|
|
|
(deftest assoc-in-test
|
|
(is (= "{:a {:b {:c 2}}}"
|
|
(str (r/assoc-in (r/parse-string "{}")
|
|
[:a :b :c] 2))))
|
|
(is (= "{:a {:b {:c 2}}}"
|
|
(str (r/assoc-in (r/parse-string "nil")
|
|
[:a :b :c] 2))))
|
|
(is (= "{:deps {foo/foo {:mvn/version \"0.2.0\"}}}"
|
|
(str (r/assoc-in (r/parse-string "{:deps {foo/foo {:mvn/version \"0.1.0\"}}}")
|
|
[:deps 'foo/foo :mvn/version]
|
|
"0.2.0"))))
|
|
(is (= "{:a 1 :b {:c 1}}"
|
|
(str (r/assoc-in (r/parse-string "{:a 1}") [:b :c] 1)))))
|
|
|
|
(deftest update-in-test
|
|
(is (= "{:deps {foo/foo {:mvn/version \"0.2.0\"}}}"
|
|
(str (r/update-in (r/parse-string "{:deps {foo/foo {:mvn/version \"0.1.0\"}}}")
|
|
[:deps 'foo/foo]
|
|
#(r/assoc % :mvn/version "0.2.0")))))
|
|
(is (= "{:a {:b {:c 1}}}"
|
|
(str (r/update-in (r/parse-string "{}")
|
|
[:a :b :c]
|
|
(comp (fnil inc 0) r/sexpr)))))
|
|
(is (= "{:a {:b {:c 1}}}"
|
|
(str (r/update-in (r/parse-string "nil")
|
|
[:a :b :c]
|
|
(comp (fnil inc 0) r/sexpr))))))
|
|
|
|
(deftest dissoc-test
|
|
(is (= "{}" (str (r/dissoc (r/parse-string "{:a 1}") :a))))
|
|
(is (= "{:a 1}" (str (r/dissoc (r/parse-string "{:a 1 \n\n:b 2}") :b))))
|
|
(is (= "{:a 1\n:c 3}" (str (r/dissoc (r/parse-string "{:a 1\n:b 2\n:c 3}") :b))))
|
|
(is (= "{:deps {foo/bar {}}}" (str (r/update (r/parse-string "{:deps {foo/bar {} foo/baz {}}}")
|
|
:deps #(r/dissoc % 'foo/baz))))))
|