diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/012/fini.expected | 8 | ||||
| -rw-r--r-- | tests/012/fini.tl | 20 |
2 files changed, 28 insertions, 0 deletions
diff --git a/tests/012/fini.expected b/tests/012/fini.expected index a733802b..72fdc948 100644 --- a/tests/012/fini.expected +++ b/tests/012/fini.expected @@ -121,3 +121,11 @@ derived:38 derived postfini derived:39 derived postfini derived:40 derived postfini derived:41 derived postfini +multi :init: 1 +multi :init: 2 +multi :postinit: 1 +multi :postinit: 2 +multi :fini: 2 +multi :fini: 1 +multi :postfini: 1 +multi :postfini: 2 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)))) |