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

 1(define n (fact 4))
 2(if (not (= n 24))
 3    (error "Bad return value!"))
 4
 5(if (not (= (Foo) 42))
 6    (error "bad variable value!"))
 7
 8(define t (new-Test))
 9(if (not (string=? (Test-method t) "Test::method"))
10    (error "Bad method return value!"))
11
12(if (not (string=? (do-method t) "Test::method"))
13    (error "Bad return value!"))
14
15(if (not (string=? (do-method2 t) "Test::method"))
16    (error "Bad return value!"))
17
18(weird "hello" 4)
19
20;; (delete-Test t)
21
22(define t2 (new-Test2))
23(define t3 (new-Test3))
24(define t4 (new-Test4))
25(define t5 (new-Test5))
26
27(if (not (= (foo3 42) 42))
28    (error "Bad return value!"))
29
30(if (not (string=? (do-method3 t2 40) "Test2::method"))
31    (error "bad return value!"))
32
33(if (not (string=? (do-method3 t3 40) "Test3::method"))
34    (error "bad return value"))
35
36(if (not (string=? (do-method3 t4 40) "Test4::method"))
37    (error "bad return value"))
38
39(if (not (string=? (do-method3 t5 40) "Test5::method"))
40    (error "bad return value"))
41
42(exit 0)