diff options
author | Ludovic Courtès <ludo@gnu.org> | 2009-10-25 22:49:28 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2009-10-26 19:48:07 +0100 |
commit | bb9c5bbd2eb34d026521a4b99ee746ec3f335865 (patch) | |
tree | a1b29916958c896c3588fa8e9b80f588c4cedb0c | |
parent | f9e8030266121b0b48e1665fe6fb699a0ca2c1ad (diff) | |
download | guile-bb9c5bbd2eb34d026521a4b99ee746ec3f335865.tar.gz |
Add GOOPS `class-of' test for nameless structs.
* test-suite/tests/goops.test ("classes for built-in types")["struct
vtable"]: New test case.
-rw-r--r-- | test-suite/tests/goops.test | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/test-suite/tests/goops.test b/test-suite/tests/goops.test index fa53fd216..fb2535aff 100644 --- a/test-suite/tests/goops.test +++ b/test-suite/tests/goops.test @@ -140,7 +140,12 @@ (eq? (class-of "foo") <string>)) (pass-if "port" - (is-a? (%make-void-port "w") <port>))) + (is-a? (%make-void-port "w") <port>)) + + (pass-if "struct vtable" + ;; Previously, `class-of' would fail for nameless structs, i.e., structs + ;; for which `struct-vtable-name' is #f. + (is-a? (class-of (make-vtable-vtable "prprpr" 0)) <class>))) (with-test-prefix "defining classes" |