diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/012/oop.expected | 3 | ||||
| -rw-r--r-- | tests/012/oop.tl | 10 |
2 files changed, 13 insertions, 0 deletions
diff --git a/tests/012/oop.expected b/tests/012/oop.expected index 433a51d2..970434d9 100644 --- a/tests/012/oop.expected +++ b/tests/012/oop.expected @@ -12,6 +12,9 @@ canine collie poodle colliecanine +collie +collie +collie #S(b a 1 b 2 c 3) #S(d a nil b -2 c 3) (10 20 300 42 42) diff --git a/tests/012/oop.tl b/tests/012/oop.tl index 52fe30bb..34808af2 100644 --- a/tests/012/oop.tl +++ b/tests/012/oop.tl @@ -43,6 +43,16 @@ (mapcar (umeth print *stdout*) (list (new collie) (new dog))) (put-line) +(let* ((ssl (gun (make-string-output-stream))) + (s1 (pop ssl)) + (s2 (pop ssl)) + (s3 (pop ssl)) + (d (new collie))) + [(meth d print s1)] + [(meth d print s2)] + [(meth d print s3)] + (tprint [mapcar get-string-from-stream (list s1 s2 s3)])) + (defstruct b nil (:instance a 1) (:instance b 2) |