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

(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)