/tags/rel-1-3-25/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
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)