109a4b230e
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
28 lines
752 B
Scheme
28 lines
752 B
Scheme
(dynamic-call "scm_init_constover_module" (dynamic-link "./libconstover.so"))
|
|
|
|
(define p (test "test"))
|
|
(if (not (string=? p "test"))
|
|
(error "test failed!"))
|
|
|
|
(set! p (test-pconst "test"))
|
|
(if (not (string=? p "test_pconst"))
|
|
(error "test_pconst failed!"))
|
|
|
|
(define f (new-Foo))
|
|
(set! p (Foo-test f "test"))
|
|
(if (not (string=? p "test"))
|
|
(error "member-test failed!"))
|
|
|
|
(set! p (Foo-test-pconst f "test"))
|
|
(if (not (string=? p "test_pconst"))
|
|
(error "member-test_pconst failed!"))
|
|
|
|
(set! p (Foo-test-constm f "test"))
|
|
(if (not (string=? p "test_constmethod"))
|
|
(error "member-test_constm failed!"))
|
|
|
|
(set! p (Foo-test-pconstm f "test"))
|
|
(if (not (string=? p "test_pconstmethod"))
|
|
(error "member-test_pconstm failed!"))
|
|
|
|
(exit 0)
|