b599732cdc
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@7155 626c5289-ae23-0410-ae9c-e8d60b6d4f22
14 lines
250 B
Scheme
14 lines
250 B
Scheme
(load "./overload_extend.so")
|
|
|
|
(define f (make <Foo>))
|
|
|
|
(if (not (= (test f 3) 1))
|
|
(error "test integer bad"))
|
|
|
|
(if (not (= (test f "hello") 2))
|
|
(error "test string bad"))
|
|
|
|
(if (not (= (test f 3.5 2.5) 6.0))
|
|
(error "test reals bad"))
|
|
|
|
(exit 0)
|