jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

The guile and chicken _runme scripts are now shared

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@5979 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
John Lenz 2004-06-07 05:03:39 +00:00
commit 60f4c8988e
74 changed files with 505 additions and 490 deletions
Download patch file Download diff file Expand all files Collapse all files

26
Examples/test-suite/schemerunme/constover.scm Normal file
View file

@ -0,0 +1,26 @@
(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)