swig/SWIG/Examples/test-suite/guile/inherit_missing_runme.scm
Matthias Köppe 109a4b230e John Lenz wrote:
I have recently been working on the guile module (as
discussed before....) and to help test it I have added
a bunch of _runme.scm files to the guile test-suite.
Mostly I just copied the python tests. What I mean is
the guile tests call exactly the same functions as the
_runme.py files.

Also a couple of tests (name_runme.scm,
list_vector_runme.scm, and char_constant_runme.scm)
were not calling the correct initilization function, so
I fixed those too.


git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@4193 626c5289-ae23-0410-ae9c-e8d60b6d4f22
2002-12-12 15:58:53 +00:00

16 lines
382 B
Scheme

(dynamic-call "scm_init_inherit_missing_module" (dynamic-link "./libinherit_missing.so"))
(define a (new-Foo))
(define b (new-Bar))
(define c (new-Spam))
(if (not (string=? (do-blah a) "Foo::blah"))
(error "Bad return"))
(if (not (string=? (do-blah b) "Bar::blah"))
(error "Bad return"))
(if (not (string=? (do-blah c) "Spam::blah"))
(error "bad return"))
(exit 0)