summaryrefslogtreecommitdiff
path: root/test/fn.fnl
diff options
context:
space:
mode:
Diffstat (limited to 'test/fn.fnl')
-rw-r--r--test/fn.fnl76
1 files changed, 39 insertions, 37 deletions
diff --git a/test/fn.fnl b/test/fn.fnl
index 7ea7c0a..44e280d 100644
--- a/test/fn.fnl
+++ b/test/fn.fnl
@@ -1,47 +1,49 @@
-(import-macros {: assert-eq : assert-ne : assert* : testing : deftest} :test.test)
-(import-macros {: meta} :macros.core)
+(require-macros :test.test)
+(require-macros :macros.core)
(local {: eq} (require :core)) ;; required for testing
-(import-macros {: fn* : fn&} :macros.fn)
+(require-macros :macros.fn)
(deftest fn*
- (testing fn*-meta
- (fn* f
- "docstring"
- [x] x)
- (assert-eq (meta f) {:fnl/docstring "docstring"
- :fnl/arglist ["x"]})
+ (when-meta
+ (testing fn*-meta
+ (fn* f
+ "docstring"
+ [x] x)
+ (assert-eq (meta f) {: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) {: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) {: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) {: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) {:fnl/docstring "docstring"
- :fnl/arglist ["x"]})
+ (when-meta
+ (testing fn&-meta
+ (fn& f "docstring" [x] x)
+ (assert-eq (meta f) {: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) {:fnl/docstring "docstring"
+ :fnl/arglist ["..."]}))))