PageRenderTime 61ms CodeModel.GetById 47ms app.highlight 2ms RepoModel.GetById 0ms app.codeStats 0ms

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