diff options
Diffstat (limited to 'tests/struct.scm')
| -rw-r--r-- | tests/struct.scm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/tests/struct.scm b/tests/struct.scm index 64f4137..dcc6770 100644 --- a/tests/struct.scm +++ b/tests/struct.scm @@ -24,6 +24,13 @@ (test-eqv 5 x) (test-eqv 15 y))))) +(test-group "instance-of?" + (define-struct <animal> species) + (define-struct <dog> breed) + (let ((my-dog (make-struct <dog> "Labrador"))) + (test-assert (instance-of? <dog> my-dog)) + (test-assert (not (instance-of? <animal> my-dog))))) + (test-group "error-handling" (define-struct <empty>) (test-error #t (make-struct <empty> 1))) |