c394a8dd9f
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@5979 626c5289-ae23-0410-ae9c-e8d60b6d4f22
12 lines
232 B
Scheme
12 lines
232 B
Scheme
(define f (new-Foo))
|
|
|
|
(if (not (= (Foo-test f 3) 1))
|
|
(error "test integer bad"))
|
|
|
|
(if (not (= (Foo-test f "hello") 2))
|
|
(error "test string bad"))
|
|
|
|
(if (not (= (Foo-test f 3.5 2.5) 3))
|
|
(error "test reals bad"))
|
|
|
|
(exit 0)
|