diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/011/macros-2.txr | 15 | ||||
| -rw-r--r-- | tests/012/ifa.tl | 2 | ||||
| -rw-r--r-- | tests/012/struct.tl | 10 |
3 files changed, 14 insertions, 13 deletions
diff --git a/tests/011/macros-2.txr b/tests/011/macros-2.txr index 96045ca4..debc6eca 100644 --- a/tests/011/macros-2.txr +++ b/tests/011/macros-2.txr @@ -20,13 +20,14 @@ (prinl i))) (prinl - (sys:expand - '(whilst ((< i 100)) - (if (< (inc i) 20) - continue) - (if (> i 30) - break) - (prinl i)))) + (ignwarn + (sys:expand + '(whilst ((< i 100)) + (if (< (inc i) 20) + continue) + (if (> i 30) + break) + (prinl i))))) (let ((i 0)) (whilst ((< i 5)) diff --git a/tests/012/ifa.tl b/tests/012/ifa.tl index 91fa4512..d669244d 100644 --- a/tests/012/ifa.tl +++ b/tests/012/ifa.tl @@ -11,7 +11,7 @@ 7) ;; ambiguous: is "it" x or is "it" y? -(test (ifa (> x y) (print it)) :error) +(test (let (x y) (ifa (> x y) (print it))) :error) ;; "it" is (+ 3 (* 2 x)) (test (let ((x 5)) diff --git a/tests/012/struct.tl b/tests/012/struct.tl index cecdfb15..a22d32d0 100644 --- a/tests/012/struct.tl +++ b/tests/012/struct.tl @@ -24,7 +24,7 @@ (test s #S(bar a 100 b 4)) -(test (sys:expand 'a.b.c.d) +(test (ignwarn (sys:expand 'a.b.c.d)) (slot (slot (slot a 'b) 'c) 'd)) @@ -36,11 +36,11 @@ [(slot s 'a) b c]) (set *gensym-counter* 0) -(stest (sys:expand 's.(a)) +(stest (ignwarn (sys:expand 's.(a))) "(call (slot s 'a)\n \ \ s)") (set *gensym-counter* 0) -(stest (sys:expand 's.(a b c)) +(stest (ignwarn (sys:expand 's.(a b c))) "(call (slot s 'a)\n \ \ s b c)") (test (sys:expand 's.[a].d) @@ -48,11 +48,11 @@ (test (sys:expand 's.[a b c].d) (slot [(slot s 'a) b c] 'd)) (set *gensym-counter* 0) -(stest (sys:expand 's.(a).d) +(stest (ignwarn (sys:expand 's.(a).d)) "(slot (call (slot s 'a)\n \ \ s) 'd)") (set *gensym-counter* 0) -(stest (sys:expand 's.(a b c).d) +(stest (ignwarn (sys:expand 's.(a b c).d)) "(slot (call (slot s 'a)\n \ \ s b c)\n 'd)") |