Predicate wrapper

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)))