diff options
Diffstat (limited to 'Examples/test-suite/schemerunme/dynamic_cast.scm')
| -rw-r--r-- | Examples/test-suite/schemerunme/dynamic_cast.scm | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/Examples/test-suite/schemerunme/dynamic_cast.scm b/Examples/test-suite/schemerunme/dynamic_cast.scm new file mode 100644 index 0000000..ebb44de --- /dev/null +++ b/Examples/test-suite/schemerunme/dynamic_cast.scm @@ -0,0 +1,11 @@ +(define f (new-Foo)) +(define b (new-Bar)) + +(define x (Foo-blah f)) +(define y (Bar-blah b)) + +(define a (do-test y)) +(if (not (string=? a "Bar::test")) + (error "Failed!")) + +(exit 0) |