From 6024c4489837ad3813c6437a9576ab2072a184ed Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Wed, 5 Jul 2017 22:24:06 -0700
Subject: structs: new tests for static-slot-ensure.

* tests/012/stslot.expected: New file.

* tests/012/stslot.tl: New file. b/tests/012/stslot.tl
---
 tests/012/stslot.expected |  0
 tests/012/stslot.tl       | 23 +++++++++++++++++++++++
 2 files changed, 23 insertions(+)
 create mode 100644 tests/012/stslot.expected
 create mode 100644 tests/012/stslot.tl

(limited to 'tests')

diff --git a/tests/012/stslot.expected b/tests/012/stslot.expected
new file mode 100644
index 00000000..e69de29b
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)))
+
-- 
cgit v1.2.3