/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
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0
- (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)