From b079f51028571bc603b8d43761c29ff56273bffc Mon Sep 17 00:00:00 2001 From: Joel Martin Date: Sun, 6 Apr 2014 16:24:27 -0500 Subject: C,PHP,Python: stepA fixup. All tests/impls pass! --- tests/stepA_more.mal | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) (limited to 'tests') diff --git a/tests/stepA_more.mal b/tests/stepA_more.mal index aac1bac..abca165 100644 --- a/tests/stepA_more.mal +++ b/tests/stepA_more.mal @@ -232,6 +232,16 @@ (meta (with-meta [1 2 3] {"a" 1})) ;=>{"a" 1} +(meta (with-meta (list 1 2 3) {"a" 1})) +;=>{"a" 1} + +(meta (with-meta {"abc" 123} {"a" 1})) +;=>{"a" 1} + +;;; Not actually supported by Clojure +;;;(meta (with-meta (atom 7) {"a" 1})) +;;;;=>{"a" 1} + (def! lst (with-meta [4 5 6] {"b" 2})) ;=>[4 5 6] @@ -239,9 +249,9 @@ (meta f-wm) ;=>{"abc" 1} -(def! f-wm2 ^"str meta" (fn* [a] (+ 1 a))) +(def! f-wm2 ^{"abc" 1} (fn* [a] (+ 1 a))) (meta f-wm2) -;=>"str meta" +;=>{"abc" 1} ;; -- cgit v1.2.3