/tags/rel-1-3-29/SWIG/Examples/test-suite/schemerunme/constover.scm

 1(define p (test "test"))
 2(if (not (string=? p "test"))
 3    (error "test failed!"))
 4
 5(set! p (test-pconst "test"))
 6(if (not (string=? p "test_pconst"))
 7    (error "test_pconst failed!"))
 8
 9(define f (new-Foo))
10(set! p (Foo-test f "test"))
11(if (not (string=? p "test"))
12    (error "member-test failed!"))
13
14(set! p (Foo-test-pconst f "test"))
15(if (not (string=? p "test_pconst"))
16    (error "member-test_pconst failed!"))
17
18(set! p (Foo-test-constm f "test"))
19(if (not (string=? p "test_constmethod"))
20    (error "member-test_constm failed!"))
21
22(set! p (Foo-test-pconstm f "test"))
23(if (not (string=? p "test_pconstmethod"))
24    (error "member-test_pconstm failed!"))
25
26(exit 0)