diff options
Diffstat (limited to 'tests/012/fini.tl')
| -rw-r--r-- | tests/012/fini.tl | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/tests/012/fini.tl b/tests/012/fini.tl index 775f210f..4036b5d4 100644 --- a/tests/012/fini.tl +++ b/tests/012/fini.tl @@ -22,3 +22,23 @@ (mapcar (ret (new derived)) (range 1 20)) (sys:gc) + +(defstruct multi () + (:init (me) + (put-line `@{%fun%}: 1`)) + (:init (me) + (put-line `@{%fun%}: 2`)) + (:postinit (me) + (put-line `@{%fun%}: 1`)) + (:postinit (me) + (put-line `@{%fun%}: 2`)) + (:fini (me) + (put-line `@{%fun%}: 1`)) + (:fini (me) + (put-line `@{%fun%}: 2`)) + (:postfini (me) + (put-line `@{%fun%}: 1`)) + (:postfini (me) + (put-line `@{%fun%}: 2`))) + +(with-objects ((m (new multi)))) |