diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/012/oop.tl | 2 | ||||
-rw-r--r-- | tests/012/struct.tl | 10 |
2 files changed, 6 insertions, 6 deletions
diff --git a/tests/012/oop.tl b/tests/012/oop.tl index 51dadbf3..ac93790f 100644 --- a/tests/012/oop.tl +++ b/tests/012/oop.tl @@ -2,7 +2,7 @@ (defstruct animal nil (:function whoami () "n/a") - (:method print (self stream : pretty-p) (put-string self.[whoami] stream))) + (:method print (self stream : pretty-p) (put-string [self.whoami] stream))) (defstruct dog animal (:function whoami () "dog")) diff --git a/tests/012/struct.tl b/tests/012/struct.tl index 9de3f832..88f37e4d 100644 --- a/tests/012/struct.tl +++ b/tests/012/struct.tl @@ -31,9 +31,9 @@ (test (expand 's.a) (slot s 'a)) (test (expand 's.[a]) - [(slot s 'a)]) + [(slot s 'a) s]) (test (expand 's.[a b c]) - [(slot s 'a) b c]) + [(slot s 'a) s b c]) (set *gensym-counter* 0) (stest (ignwarn (expand 's.(a))) @@ -44,9 +44,9 @@ "(call (slot s 'a)\n \ \ s b c)") (test (expand 's.[a].d) - (slot [(slot s 'a)] 'd)) + (slot [(slot s 'a) s] 'd)) (test (expand 's.[a b c].d) - (slot [(slot s 'a) b c] 'd)) + (slot [(slot s 'a) s b c] 'd)) (set *gensym-counter* 0) (stest (ignwarn (expand 's.(a).d)) "(slot (call (slot s 'a)\n \ @@ -104,7 +104,7 @@ (stest bz "#S(baz array #(1 2 3) increment #<interpreted fun: lambda (self which delta)>)") -(test bz.[array 2] 3) +(test [bz.array 2] 3) (test bz.(increment 0 42) 43) (test bz.array #(43 2 3)) (test [(meth bz increment) 1 5] 7) |