diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/012/struct.tl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/012/struct.tl b/tests/012/struct.tl index 93979786..33431780 100644 --- a/tests/012/struct.tl +++ b/tests/012/struct.tl @@ -137,3 +137,11 @@ (test (equal #S(foo) #S(foo)) t) (test (equal #S(foo a 0) #S(foo a 1)) nil) (test (equal #S(bar a 3 b 3) #S(bar a 3 b 3)) t) + +(defstruct eqsub () + key + (:method equal (me) me.key)) + +(test (equal (new eqsub key '(1 2)) + (new eqsub key '(1 2))) + t) |