60f4c8988e
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@5979 626c5289-ae23-0410-ae9c-e8d60b6d4f22
11 lines
183 B
Scheme
11 lines
183 B
Scheme
(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)
|