diff options
| author | Andrey Orst <andreyorst@gmail.com> | 2020-11-12 19:25:57 +0300 |
|---|---|---|
| committer | Andrey Orst <andreyorst@gmail.com> | 2020-11-12 19:25:57 +0300 |
| commit | a1851986383148593ca85675d3dafd1e8517481a (patch) | |
| tree | a99dbf637b2f5fb6f1465695eee71a9d008fd80e /test/fn.fnl | |
| parent | 32f268f51538bd4c26d9da337e01d3df39ea2f2e (diff) | |
fix(CI): overhaul
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 ["..."]})))) |