From a1851986383148593ca85675d3dafd1e8517481a Mon Sep 17 00:00:00 2001 From: Andrey Orst Date: Thu, 12 Nov 2020 19:25:57 +0300 Subject: fix(CI): overhaul --- test/fn.fnl | 44 -------------------------------------------- 1 file changed, 44 deletions(-) delete mode 100644 test/fn.fnl (limited to 'test/fn.fnl') diff --git a/test/fn.fnl b/test/fn.fnl deleted file mode 100644 index ec4e835..0000000 --- a/test/fn.fnl +++ /dev/null @@ -1,44 +0,0 @@ -(require-macros :test.test) -(require-macros :cljlib-macros) - -(deftest fn* - (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) (when-meta {:fnl/docstring "docstring" - :fnl/arglist ["x"]})) - - (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) (when-meta {:fnl/docstring "docstring" - :fnl/arglist ["\n [x]" - "\n [x y]" - "\n [x y & z]"]})))) - -(deftest fn& - (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) (when-meta {:fnl/docstring "docstring" - :fnl/arglist ["..."]})))) -- cgit v1.2.3