define-struct-clause: add tests.

* tets/012/oop-dsc.tl: New file.

1 files changed, 65 insertions, 0 deletions

diff --git a/tests/012/oop-dsc.tl b/tests/012/oop-dsc.tl
new file mode 100644
index 00000000..c0b6068b
--- /dev/null
+++ b/tests/012/oop-dsc.tl
@@ -0,0 +1,65 @@
+(load "../common")
+
+(define-struct-clause :nothing (. ignored-args))
+
+(defstruct s0 ()
+  (:nothing 1 "foo" :junk)
+  x)
+
+(test (new s0) #S(s0 x nil))
+
+(define-struct-clause :multi (init-val . names)
+  (mapcar (lop list init-val) names))
+
+(defstruct s1 ()
+  (:multi 0 a b c))
+
+(test (new s1) #S(s1 a 0 b 0 c 0))
+
+(define-struct-clause :getset (slot getter setter : init-val)
+  ^((,slot ,init-val)
+    (:method ,getter (obj) obj.,slot)
+    (:method ,setter (obj new) (set obj.,slot new))))
+
+(defstruct s2 ()
+  (:getset a get-a set-a 0)
+  (:getset b get-b set-b 0))
+
+(let ((s2 (new s2)))
+  (mtest
+    s2.a 0
+    s2.b 0
+    s2.(get-a) 0
+    s2.(get-b) 0
+    s2.(set-a 42) 42
+    s2.(set-b 73) 73
+    s2.a 42
+    s2.b 73
+    s2.(get-a) 42
+    s2.(get-b) 73))
+
+(define-struct-clause :hash (hash-name by-slot)
+  ^((:static ,hash-name (hash))
+    (:postinit (me)
+      (set [me.,hash-name me.,by-slot] me))
+    (:postfini (me)
+      (del [me.,hash-name me.,by-slot]))))
+
+(defstruct s3 ()
+  a b
+  (:hash a-hash a)
+  (:hash b-hash b))
+
+(let* ((s3-list (list (new s3 a "one" b 1)
+                      (new s3 a "two" b 2)
+                      (new s3 a "three" b 3)))
+       (s3 (first s3-list)))
+  (mtest
+    [s3.a-hash "one"].a "one"
+    [s3.a-hash "two"].b 2
+    [s3.a-hash "three"].b 3
+    [s3.b-hash 1].a "one"
+    [s3.b-hash 2].b 2
+    [s3.b-hash 3].a "three")
+  (call-finalizers s3)
+  (test [s3.a-hash "one"] nil))