diff options
| author | Joel Martin <github@martintribe.org> | 2014-04-16 22:42:17 -0500 |
|---|---|---|
| committer | Joel Martin <github@martintribe.org> | 2014-04-16 22:42:17 -0500 |
| commit | a05f7822b10ed4cdd61ed8384299a003baf1c1c6 (patch) | |
| tree | 28ec9e0efa0cb5c7f335579271c61a2f910680f9 /tests | |
| parent | b3402a82d38d0d59b91b117005c6bef2748acf8b (diff) | |
| download | mal-a05f7822b10ed4cdd61ed8384299a003baf1c1c6.tar.gz mal-a05f7822b10ed4cdd61ed8384299a003baf1c1c6.zip | |
Python: metadata on builtin funcs. Support python3.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/stepA_more.mal | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/tests/stepA_more.mal b/tests/stepA_more.mal index 892b592..f2cc7eb 100644 --- a/tests/stepA_more.mal +++ b/tests/stepA_more.mal @@ -209,7 +209,7 @@ (meta l-wm) ;=>{"b" 2} - +;; Testing metadata on functions (def! f-wm (with-meta (fn* [a] (+ 1 a)) {"abc" 1})) (meta f-wm) ;=>{"abc" 1} @@ -224,6 +224,15 @@ (meta f-wm2) ;=>{"abc" 1} +;; Testing metadata on builtin functions +(meta +) +;=>nil +(def! f-wm3 ^{"def" 2} +) +(meta f-wm3) +;=>{"def" 2} +(meta +) +;=>nil + ;; ;; Make sure closures and metadata co-exist (def! gen-plusX (fn* (x) (with-meta (fn* (b) (+ x b)) {"meta" 1}))) |