diff options
Diffstat (limited to 'test/fn.fnl')
| -rw-r--r-- | test/fn.fnl | 44 |
1 files changed, 0 insertions, 44 deletions
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 ["..."]})))) |