/tags/rel-1-3-29/SWIG/Examples/test-suite/schemerunme/constover.scm
# · Lisp · 26 lines · 20 code · 6 blank · 0 comment · 0 complexity · 7af0a0e1ba48efa34860177d69b5834e MD5 · raw file
- (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)