From ae389b9480d46091bfd9b6843aebdc48aa577c16 Mon Sep 17 00:00:00 2001 From: Andrey Listopadov Date: Mon, 28 Aug 2023 22:13:21 +0300 Subject: Update fennel-test, and add test runner script --- tests/.dir-locals.el | 1 - tests/core.fnl | 2 +- tests/fn.fnl | 8 ++++---- tests/macros.fnl | 2 +- 4 files changed, 6 insertions(+), 7 deletions(-) delete mode 120000 tests/.dir-locals.el (limited to 'tests') diff --git a/tests/.dir-locals.el b/tests/.dir-locals.el deleted file mode 120000 index 0b353b0..0000000 --- a/tests/.dir-locals.el +++ /dev/null @@ -1 +0,0 @@ -../fennel-test/.dir-locals.el \ No newline at end of file diff --git a/tests/core.fnl b/tests/core.fnl index bd3a4aa..a317436 100644 --- a/tests/core.fnl +++ b/tests/core.fnl @@ -1,4 +1,4 @@ -(require-macros :fennel-test) +(require-macros (doto :fennel-test.fennel-test require)) (import-macros clj (doto :cljlib require)) (local core (require :cljlib)) diff --git a/tests/fn.fnl b/tests/fn.fnl index eeee017..886c763 100644 --- a/tests/fn.fnl +++ b/tests/fn.fnl @@ -1,13 +1,13 @@ -(require-macros :fennel-test) +(require-macros (doto :fennel-test.fennel-test require)) (require-macros (doto :cljlib require)) (local (meta? fennel) (pcall require :fennel)) (fn meta [x] (fennel.metadata:get x)) -(deftest test-fn* +(deftest test-defn (when meta? - (testing "fn* meta" + (testing "defn meta" (defn f "single arity" [x] x) @@ -66,7 +66,7 @@ "([[{:a [a b c]}] d e])"]} (meta f))) - (testing "defn anonymous calls" + (testing "fn* anonymous calls" (assert-eq ((fn* [])) (values)) (assert-eq ((fn* [] nil)) nil) (assert-eq ((fn* [x] x) 5) 5) diff --git a/tests/macros.fnl b/tests/macros.fnl index 3b3eeba..cf3d455 100644 --- a/tests/macros.fnl +++ b/tests/macros.fnl @@ -1,4 +1,4 @@ -(require-macros :fennel-test) +(require-macros (doto :fennel-test.fennel-test require)) (require-macros (doto :cljlib require)) (local (meta? fennel) (pcall require :fennel)) -- cgit v1.2.3