diff options
Diffstat (limited to 'tests/012/oop-prelude.tl')
| -rw-r--r-- | tests/012/oop-prelude.tl | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/tests/012/oop-prelude.tl b/tests/012/oop-prelude.tl new file mode 100644 index 00000000..bb0b3d44 --- /dev/null +++ b/tests/012/oop-prelude.tl @@ -0,0 +1,13 @@ +(load "../common") + +(define-struct-prelude init-fini-log (fox bear) + (:init (me) (put-line `@me created`)) + (:fini (me) (put-line `@me finalized`))) + +(defstruct fox ()) + +(defstruct bear ()) + +(with-objects ((f (new fox)) + (b (new bear))) + (put-line "inside with-object")) |