diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/core.fnl | 120 | ||||
| -rw-r--r-- | test/fn.fnl | 70 | ||||
| -rw-r--r-- | test/macros.fnl | 42 | ||||
| -rw-r--r-- | test/test.fnl | 16 |
4 files changed, 130 insertions, 118 deletions
diff --git a/test/core.fnl b/test/core.fnl index 52b198e..f83e389 100644 --- a/test/core.fnl +++ b/test/core.fnl @@ -66,7 +66,7 @@ (require :core)) (deftest equality - (testing eq + (testing "eq" (assert* (not (pcall eq))) ;; comparing basetypes (assert-eq 1 1) @@ -107,7 +107,7 @@ ;; different. (assert-eq {4 1} [nil nil nil 1]))) -(testing range +(testing "range" (assert* (not (pcall range))) (assert-eq (range 10) [0 1 2 3 4 5 6 7 8 9]) (assert-eq (range -5 5) [-5 -4 -3 -2 -1 0 1 2 3 4]) @@ -115,45 +115,45 @@ (assert-eq (range 0 1 0.2) (range 0 1 0.2))) (deftest predicates - (testing zero? + (testing "zero?" (assert* (zero? 0)) (assert* (zero? -0)) (assert* (not (zero? 1)))) - (testing int? + (testing "int?" (assert* (int? 1)) (assert* (not (int? 1.1)))) - (testing pos? + (testing "pos?" (assert* (pos? 1)) (assert* (and (not (pos? 0)) (not (pos? -1))))) - (testing neg? + (testing "neg?" (assert* (neg? -1)) (assert* (and (not (neg? 0)) (not (neg? 1))))) - (testing pos-int? + (testing "pos-int?" (assert* (pos-int? 42)) (assert* (not (pos-int? 4.2)))) - (testing neg-int? + (testing "neg-int?" (assert* (neg-int? -42)) (assert* (not (neg-int? -4.2)))) - (testing string? + (testing "string?" (assert* (string? :s))) - (testing double? + (testing "double?" (assert* (double? 3.3)) (assert* (not (double? 3.0)))) - (testing map? + (testing "map?" (assert* (map? {:a 1})) (assert* (not (map? {}))) (assert* (map? (empty {}))) (assert* (not (map? (empty []))))) - (testing seq? + (testing "seq?" (assert* (not (seq? []))) (assert* (seq? [{:a 1}])) (assert* (not (seq? {}))) @@ -161,50 +161,50 @@ (assert* (seq? (empty []))) (assert* (not (seq? (empty {}))))) - (testing nil? + (testing "nil?" (assert* (nil?)) (assert* (nil? nil)) (assert* (not (nil? 1)))) - (testing odd? + (testing "odd?" (assert* (odd? 3)) (assert* (odd? -3)) (assert* (not (odd? 2))) (assert* (not (odd? -2)))) - (testing even? + (testing "even?" (assert* (even? 2)) (assert* (even? -2)) (assert* (not (even? 23))) (assert* (not (even? -23)))) - (testing true? + (testing "true?" (assert* (true? true)) (assert* (not (true? false))) (assert* (not (true? 10))) (assert* (not (true? :true)))) - (testing false? + (testing "false?" (assert* (false? false)) (assert* (not (false? true))) (assert* (not (false? 10))) (assert* (not (false? :true)))) - (testing boolean? + (testing "boolean?" (assert* (boolean? true)) (assert* (boolean? false)) (assert* (not (boolean? :false))) (assert* (not (boolean? (fn [] true)))))) (deftest sequence-functions - (testing seq + (testing "seq" (assert-eq (seq []) nil) (assert-eq (seq {}) nil) (assert-eq (seq [1]) [1]) (assert-eq (seq [1 2 3]) [1 2 3]) (assert-eq (seq {:a 1}) [["a" 1]])) - (testing mapv + (testing "mapv" (assert* (not (pcall mapv))) (assert* (not (pcall mapv #(do nil)))) (assert-eq (mapv #(* $ $) [1 2 3 4]) [1 4 9 16]) @@ -228,7 +228,7 @@ ["Bob Smith works as secretary at Happy Days co." "Alice Watson works as chief officer at Coffee With You"])) - (testing reduce + (testing "reduce" (fn* plus ([] 0) ([a] a) @@ -262,7 +262,7 @@ (assert-eq (reduce plus (range 10)) (reduce- plus 0 (range 10)))) - (testing filter + (testing "filter" (assert* (not (pcall filter))) (assert* (not (pcall filter even?))) (assert-eq (filter even? (range 10)) [0 2 4 6 8]) @@ -270,7 +270,7 @@ (assert-eq (filter map? [{:a 1} {5 1} [1 2] [] {}]) [{:a 1} {5 1}]) (assert-eq (filter seq? [{:a 1} {5 1} [1 2] [] {}]) [[1 2]])) - (testing concat + (testing "concat" (assert-eq (concat) nil) (assert-eq (concat []) []) (assert-eq (concat [1 2 3]) [1 2 3]) @@ -287,12 +287,12 @@ (assert* (not (pcall concat [] 2))) (assert* (not (pcall concat [1] 2)))) - (testing reverse + (testing "reverse" (assert-eq (reverse []) nil) (assert-eq (reverse [1 2 3]) [3 2 1]) (assert-eq (reverse {:a 1}) [[:a 1]])) - (testing conj + (testing "conj" (assert-eq (conj) []) (assert-eq (conj [1] nil) [1]) (assert-eq (conj [] 1 2 3) [1 2 3]) @@ -301,48 +301,48 @@ (assert-eq (conj {:a 1}) {:a 1}) (assert-eq (conj [1] 2 3 4 5 6 7) [1 2 3 4 5 6 7])) - (testing cons + (testing "cons" (assert-eq (cons nil [1]) [1]) (assert-eq (cons 1 []) [1]) (assert-eq (cons 1 [0]) [1 0])) - (testing first + (testing "first" (assert-eq (first [1 2 3]) 1) (assert-eq (first {:a 1}) [:a 1]) (assert-eq (first []) nil)) - (testing last + (testing "last" (assert-eq (last [1 2 3]) 3) (assert-eq (last []) nil) (assert-eq (last nil) nil) (assert-eq (last {:a 1}) [:a 1])) - (testing rest + (testing "rest" (assert-eq (rest [1 2 3]) [2 3]) (assert-eq (rest {:a 1}) []) (assert-eq (rest []) []) (assert-eq (rest nil) [])) - (testing butlast + (testing "butlast" (assert-eq (butlast [1 2 3]) [1 2]) (assert-eq (butlast {:a 1}) nil) (assert-eq (butlast []) nil) (assert-eq (butlast nil) nil)) - (testing reduce-kv + (testing "reduce-kv" (assert-eq (reduce-kv #(+ $1 $3) 0 {:a 1 :b 2 :c 3}) 6) (assert* (not (pcall reduce-kv #(+ $1 $3) 0))) (assert* (not (pcall reduce-kv #(+ $1 $3)))) (assert* (not (pcall reduce-kv)))) - (testing assoc + (testing "assoc" (assert* (not (pcall assoc))) (assert* (not (pcall assoc {}))) (assert-eq (assoc {} :a 1) {:a 1}) (assert-eq (assoc {} :a 1 :b 2 :c 3 :d 4) {:a 1 :b 2 :c 3 :d 4}))) (deftest function-manipulation - (testing constantly + (testing "constantly" (let [always-nil (constantly nil)] (assert-eq (always-nil) nil) (assert-eq (always-nil 1) nil) @@ -352,14 +352,14 @@ (assert* (always-true)) (assert* (always-true false)))) - (testing complement + (testing "complement" (assert* ((complement #(do false)))) (assert* ((complement nil?) 10)) (assert* ((complement every?) double? [1 2 3 4])) (assert* ((complement #(= $1 $2 $3)) 1 1 2 1)) (assert* ((complement #(= $1 $2)) 1 2))) - (testing apply + (testing "apply" (fn* add ([x] x) ([x y] (+ x y)) @@ -374,7 +374,7 @@ (assert* (not (pcall apply))) (assert* (not (pcall apply add)))) - (testing comp + (testing "comp" (assert-eq ((comp) 10) 10) (fn square [x] (* x x)) (assert-eq (comp square) square) @@ -389,7 +389,7 @@ (fn h [a b c d e f] (+ a b c d e f)) (assert-eq ((comp inc h) 1 2 3 4 5 6) 22)) - (testing identity + (testing "identity" (fn f [] nil) (assert-eq (identity 1) 1) (assert-eq (identity {:a 1 :b 2}) {:a 1 :b 2}) @@ -398,28 +398,28 @@ (assert-eq (identity f) f))) (deftest sequence-predicates - (testing some + (testing "some" (assert* (not (pcall some))) (assert* (not (pcall some pos-int?))) (assert* (some pos-int? [-1 1.1 2.3 -5.5 42 10 -27])) (assert* (not (some pos-int? {:a 1}))) (assert* (some pos-int? [{:a 1} "1" -1 1]))) - (testing not-any? + (testing "not-any?" (assert* (not (pcall not-any?))) (assert* (not (pcall not-any? pos-int?))) (assert* (not-any? pos-int? [-1 1.1 2.3 -5.5 -42 -10 -27])) (assert* (not-any? pos-int? {:a 1})) (assert* (not (not-any? pos-int? [1 2 3 4 5])))) - (testing every? + (testing "every?" (assert* (not (pcall every?))) (assert* (not (pcall every? pos-int?))) (assert* (not (every? pos-int? [-1 1.1 2.3 -5.5 42 10 -27]))) (assert* (not (every? pos-int? {:a 1}))) (assert* (every? pos-int? [1 2 3 4 5]))) - (testing empty? + (testing "empty?" (assert* (not (pcall empty?))) (assert* (empty? [])) (assert* (empty? {})) @@ -429,7 +429,7 @@ (assert* (not (empty? {:a 1}))) (assert* (not (pcall empty? 10)))) - (testing not-empty + (testing "not-empty" (assert* (not (pcall not-empty))) (assert-eq (not-empty []) nil) (assert-eq (not-empty {}) nil) @@ -439,20 +439,20 @@ (assert-eq (not-empty {:a 1}) {:a 1}))) (deftest math-functions - (testing inc + (testing "inc" (assert-eq (inc 1) 2) (assert-eq (inc -1) 0) (assert* (not (pcall inc))) (assert* (not (pcall inc nil)))) - (testing dec + (testing "dec" (assert-eq (dec 1) 0) (assert-eq (dec -1) -2) (assert* (not (pcall dec))) (assert* (not (pcall dec nil))))) (deftest table-access - (testing get + (testing "get" (assert-eq (get {:key1 10 :key2 20} :key1) 10) (assert-eq (get {:key1 10 :key2 20} :key1 false) 10) (assert-eq (get {:key1 10 :key2 20} :key3 false) false) @@ -460,7 +460,7 @@ (assert* (not (pcall get))) (assert* (not (pcall get {})))) - (testing get-in + (testing "get-in" (local t {:a {:b {:c 10}}}) (assert-eq (get-in t [:a]) {:b {:c 10}}) (assert-eq (get-in t [:a :b]) {:c 10}) @@ -473,7 +473,7 @@ (assert* (not (pcall get-in {}))))) (deftest methods - (testing methods + (testing "methods" (defmulti f identity) (defmethod f :a [_] :a) (defmethod f :b [_] :b) @@ -482,7 +482,7 @@ (assert* (not (pcall methods))) (assert* (not (pcall methods f f)))) - (testing get-method + (testing "get-method" (defmulti f identity) (defmethod f :a [_] :a) (defmethod f :b [_] :b) @@ -494,7 +494,7 @@ (assert* (not (pcall get-method f))) (assert* (not (pcall get-method f :a :b)))) - (testing remove-method + (testing "remove-method" (defmulti f identity) (defmethod f :a [_] :a) (defmethod f :b [_] :b) @@ -506,7 +506,7 @@ (assert* (not (pcall remove-method f))) (assert* (not (pcall remove-method f :a :b)))) - (testing remove-all-methods + (testing "remove-all-methods" (defmulti f identity) (defmethod f :a [_] :a) (defmethod f :b [_] :b) @@ -517,7 +517,7 @@ (assert* (not (pcall remove-all-methods f f))))) (deftest math-functions - (testing plus + (testing "plus" (assert-eq (plus) 0) (assert-eq (plus 1) 1) (assert-eq (plus -1) -1) @@ -526,7 +526,7 @@ (assert-eq (plus 1 2 3 4) 10) (assert-eq (plus 1 2 3 4 5) 15)) - (testing minus + (testing "minus" (assert-eq (minus) 0) (assert-eq (minus 1) -1) (assert-eq (minus -1) 1) @@ -535,7 +535,7 @@ (assert-eq (minus 1 2 3 4) -8) (assert-eq (minus 1 2 3 4 5) -13)) - (testing mul + (testing "mul" (assert-eq (mul) 1) (assert-eq (mul 1) 1) (assert-eq (mul -1) -1) @@ -544,7 +544,7 @@ (assert-eq (mul 1 2 3 4) 24) (assert-eq (mul 1 2 3 4 5) 120)) - (testing div + (testing "div" (assert* (not (pcall div))) (assert-eq (div 1) 1) (assert-eq (div -1) -1) @@ -554,7 +554,7 @@ (assert-eq (div 1 2 3 4 5) (/ 1 2 3 4 5)))) (deftest comparison-functions - (testing le + (testing "le" (assert* (not (pcall le))) (assert* (le 1)) (assert* (le 1 2)) @@ -564,7 +564,7 @@ (assert* (not (le 2 1 3))) (assert* (not (le 1 2 4 3)))) - (testing lt + (testing "lt" (assert* (not (pcall lt))) (assert* (lt 1)) (assert* (lt 1 2)) @@ -574,7 +574,7 @@ (assert* (not (lt 2 1 3))) (assert* (not (lt 1 2 4 4)))) - (testing ge + (testing "ge" (assert* (not (pcall ge))) (assert* (ge 2)) (assert* (ge 2 1)) @@ -584,7 +584,7 @@ (assert* (not (ge 2 1 3))) (assert* (not (ge 1 2 4 4)))) - (testing gt + (testing "gt" (assert* (not (pcall gt))) (assert* (gt 2)) (assert* (gt 2 1)) @@ -595,14 +595,14 @@ (assert* (not (gt 1 2 4 4))))) (deftest vec - (testing vec + (testing "vec" (assert-eq (vector) []) (assert-eq (vector 1) [1]) (assert-eq (vector 1 2 3) [1 2 3]) (assert-eq (getmetatable (vector 1 2 3)) {:cljlib/table-type :seq}))) (deftest hash-map - (testing hash-map + (testing "hash-map" (assert* (not (pcall hash-map :a))) (assert-eq (hash-map) {}) (assert-eq (hash-map :a 1) {:a 1}) diff --git a/test/fn.fnl b/test/fn.fnl index aae0382..f89581f 100644 --- a/test/fn.fnl +++ b/test/fn.fnl @@ -3,45 +3,43 @@ (require-macros :macros.fn) (deftest fn* - (when-meta - (testing fn*-meta - (fn* f - "docstring" - [x] x) - (assert-eq (meta f) {:fnl/docstring "docstring" - :fnl/arglist ["x"]}) + (testing "fn* meta" + (fn* f + "docstring" + [x] x) + (assert-eq (meta f) (when-meta {:fnl/docstring "docstring" + :fnl/arglist ["x"]})) - (fn* f - "docstring" - ([x] x)) - (assert-eq (meta f) {:fnl/docstring "docstring" - :fnl/arglist ["x"]}) + (fn* f + "docstring" + ([x] x)) + (assert-eq (meta f) (when-meta {:fnl/docstring "docstring" + :fnl/arglist ["x"]})) - (fn* f - "docstring" - ([x] x) - ([x y] (+ x y))) - (assert-eq (meta f) {:fnl/docstring "docstring" - :fnl/arglist ["\n [x]" - "\n [x y]"]}) + (fn* f + "docstring" + ([x] x) + ([x y] (+ x y))) + (assert-eq (meta f) (when-meta {:fnl/docstring "docstring" + :fnl/arglist ["\n [x]" + "\n [x y]"]})) - (fn* f - "docstring" - ([x] x) - ([x y] (+ x y)) - ([x y & z] (+ x y))) - (assert-eq (meta f) {:fnl/docstring "docstring" - :fnl/arglist ["\n [x]" - "\n [x y]" - "\n [x y & z]"]})))) + (fn* f + "docstring" + ([x] x) + ([x y] (+ x y)) + ([x y & z] (+ x y))) + (assert-eq (meta f) (when-meta {:fnl/docstring "docstring" + :fnl/arglist ["\n [x]" + "\n [x y]" + "\n [x y & z]"]})))) (deftest fn& - (when-meta - (testing fn&-meta - (fn& f "docstring" [x] x) - (assert-eq (meta f) {:fnl/docstring "docstring" - :fnl/arglist ["x"]}) + (testing "fn& meta" + (fn& f "docstring" [x] x) + (assert-eq (meta f) (when-meta {:fnl/docstring "docstring" + :fnl/arglist ["x"]})) - (fn& f "docstring" [...] [...]) - (assert-eq (meta f) {:fnl/docstring "docstring" - :fnl/arglist ["..."]})))) + (fn& f "docstring" [...] [...]) + (assert-eq (meta f) (when-meta {:fnl/docstring "docstring" + :fnl/arglist ["..."]})))) diff --git a/test/macros.fnl b/test/macros.fnl index 5b06c42..ae7ab40 100644 --- a/test/macros.fnl +++ b/test/macros.fnl @@ -4,7 +4,7 @@ (require-macros :macros.core) (deftest into - (testing into + (testing "into" (assert-eq (into [] []) []) (assert-eq (into [1 2 3] []) [1 2 3]) (assert-eq (into [1 2 3] [4 5 6]) [1 2 3 4 5 6]) @@ -48,37 +48,38 @@ (assert-eq (into b {:a 1}) [[:a 1]])))) (deftest let-variants - (testing when-let + (testing "when-let" (assert-eq (when-let [a 4] a) 4) (assert* (not (when-let [a false] a)) "(not (when-let [a false] a))") (assert* (not (when-let [a nil] a)) "(not (when-let [a nil] a))")) - (testing when-some + (testing "when-some" (assert-eq (when-some [a [1 2 3]] a) [1 2 3]) (assert-eq (when-some [a false] a) false) (assert* (not (when-some [a nil] a)) "(when-some [a nil] a)")) - (testing if-let + (testing "if-let" (assert-eq (if-let [a 4] a 10) 4) (assert-eq (if-let [a false] a 10) 10) (assert-eq (if-let [a nil] a 10) 10)) - (testing if-some + (testing "if-some" (assert-eq (if-some [a [1 2 3]] a :nothing) [1 2 3]) (assert-eq (if-some [a false] a :nothing) false) (assert-eq (if-some [a nil] a :nothing) :nothing))) (deftest multimethods - (testing defmulti + (testing "defmulti" (defmulti x (fn [x] x)) (assert-eq (defmulti x (fn [x] (+ x 1))) nil)) - (testing defmethod + (testing "defmulti defalut" (defmulti fac identity) (defmethod fac 0 [_] 1) (defmethod fac :default [x] (* x (fac (- x 1)))) - (assert-eq (fac 42) 7538058755741581312) + (assert-eq (fac 42) 7538058755741581312)) + (testing "defmulti keys" (defmulti send-data (fn [protocol data] protocol)) (defmethod send-data :http [protocol data] (.. data " will be sent over HTTP")) (defmethod send-data :icap [protocol data] (.. data " will be sent over ICAP")) @@ -94,7 +95,7 @@ "sending 42 over ICAP"))) (deftest def-macros - (testing def + (testing "def" (def {:dynamic true} a 10) (assert-eq a 10) (set a 20) @@ -108,7 +109,7 @@ (set c 15) (assert-eq c 15)) - (testing defonce + (testing "defonce" (defonce {:dynamic true} a 10) (assert-eq a 10) (defonce a {}) @@ -119,16 +120,16 @@ (assert-eq a 10))) (deftest meta - (testing with-meta + (testing "with-meta" (assert-eq (meta (with-meta :a {:k :v})) (when-meta {:k :v}))) - (testing def-meta + (testing "def meta" (def {:doc "x"} x 10) (assert-eq (meta x) (when-meta {:fnl/docstring "x"})) (def {:doc "x" :dynamic true} x 10) (assert-eq (meta x) (when-meta {:fnl/docstring "x"}))) - (testing defonce-meta + (testing "defonce meta table" (defonce {:doc "x"} x 10) (assert-eq (meta x) (when-meta {:fnl/docstring "x"})) (defonce {:doc "y"} x 20) @@ -137,8 +138,19 @@ (assert-eq (meta y) (when-meta {:fnl/docstring "y"})))) (deftest empty - (testing empty + (testing "empty map" (assert-eq (empty {}) {}) + (assert-eq (getmetatable (empty {})) {:cljlib/table-type :table}) + (let [a {:a 1 :b 2}] + (assert-eq (empty a) {}) + (assert-eq (getmetatable (empty a)) {:cljlib/table-type :table})) + (let [a {}] + (assert-eq (empty a) []) + (assert-eq (getmetatable (empty a)) {:cljlib/table-type :empty}))) + + (testing "empty seq" (assert-eq (empty []) {}) (assert-eq (getmetatable (empty [])) {:cljlib/table-type :seq}) - (assert-eq (getmetatable (empty {})) {:cljlib/table-type :table}))) + (let [a [:a 1 :b 2]] + (assert-eq (empty a) []) + (assert-eq (getmetatable (empty a)) {:cljlib/table-type :seq})))) diff --git a/test/test.fnl b/test/test.fnl index 9ee23c1..211f330 100644 --- a/test/test.fnl +++ b/test/test.fnl @@ -21,8 +21,9 @@ ([expr1 expr2 msg] `(let [left# ,expr1 right# ,expr2 - (res# view#) (pcall require :fennelview)] - (assert (eq left# right#) (or ,msg (.. "equality assertion failed + (res# view#) (pcall require :fennelview) + eq# ,(eq-fn)] + (assert (eq# left# right#) (or ,msg (.. "equality assertion failed Left: " ((if res# view# tostring) left#) " Right: " ((if res# view# tostring) right#) "\n")))))) @@ -32,8 +33,9 @@ ([expr1 expr2 msg] `(let [left# ,expr1 right# ,expr2 - (res# view#) (pcall require :fennelview)] - (assert (not (eq left# right#)) (or ,msg (.. "unequality assertion failed + (res# view#) (pcall require :fennelview) + eq# ,(eq-fn)] + (assert (not (eq# left# right#)) (or ,msg (.. "unequality assertion failed Left: " ((if res# view# tostring) left#) " Right: " ((if res# view# tostring) right#) "\n")))))) @@ -51,11 +53,11 @@ (fn* testing "Define test function, print its name and run it." - [name & body] - (let [test-name (sym (.. (tostring name) "-test"))] + [description & body] + (let [test-name (gensym)] `(do (fn ,test-name [] ,((or table.unpack _G.unpack) body)) - (io.stderr:write (.. "running: " ,(tostring test-name) "\n")) + (io.stderr:write (.. "testing: " ,description "\n")) (,test-name)))) {: assert-eq |