diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2017-07-05 22:24:06 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2017-07-05 22:24:06 -0700 |
| commit | 6024c4489837ad3813c6437a9576ab2072a184ed (patch) | |
| tree | d37385f82cb3a389314ab50f5b5fab74a60d2528 /tests | |
| parent | 71758d6cd1093981c410b19b57fb11c0d2b2ff8a (diff) | |
| download | txr-6024c4489837ad3813c6437a9576ab2072a184ed.tar.gz txr-6024c4489837ad3813c6437a9576ab2072a184ed.tar.bz2 txr-6024c4489837ad3813c6437a9576ab2072a184ed.zip | |
structs: new tests for static-slot-ensure.
* tests/012/stslot.expected: New file.
* tests/012/stslot.tl: New file. b/tests/012/stslot.tl
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/012/stslot.expected | 0 | ||||
| -rw-r--r-- | tests/012/stslot.tl | 23 |
2 files changed, 23 insertions, 0 deletions
diff --git a/tests/012/stslot.expected b/tests/012/stslot.expected new file mode 100644 index 00000000..e69de29b --- /dev/null +++ b/tests/012/stslot.expected diff --git a/tests/012/stslot.tl b/tests/012/stslot.tl new file mode 100644 index 00000000..80faa0db --- /dev/null +++ b/tests/012/stslot.tl @@ -0,0 +1,23 @@ +(load "../common") + +(defstruct base nil) + +(defstruct derived base) + +(defstruct child derived) + +(defmeth child omega (me) 'child-omega) + +(defmeth derived alpha (me) 'derived-alpha) +(defmeth derived beta (me) 'derived-beta) + +(defmeth base gamma (me) 'base-gamma) +(defmeth base delta (me) 'base-delta) + +(defmeth derived gamma (me) 'derived-gamma) +(defmeth derived delta (me) 'derived-delta) + +(let ((o (new child))) + (test (list o.(omega) o.(alpha) o.(beta) o.(gamma) o.(delta)) + (child-omega derived-alpha derived-beta derived-gamma derived-delta))) + |