summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/012/oop.tl2
-rw-r--r--tests/012/struct.tl10
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)