/tags/rel-1-3-25/SWIG/Examples/test-suite/schemerunme/cpp_namespace.scm
Lisp | 42 lines | 28 code | 13 blank | 1 comment | 0 complexity | c60698bb580d94e7c9202b963566f55c MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0
- (define n (fact 4))
- (if (not (= n 24))
- (error "Bad return value!"))
- (if (not (= (Foo) 42))
- (error "bad variable value!"))
- (define t (new-Test))
- (if (not (string=? (Test-method t) "Test::method"))
- (error "Bad method return value!"))
- (if (not (string=? (do-method t) "Test::method"))
- (error "Bad return value!"))
- (if (not (string=? (do-method2 t) "Test::method"))
- (error "Bad return value!"))
- (weird "hello" 4)
- ;; (delete-Test t)
- (define t2 (new-Test2))
- (define t3 (new-Test3))
- (define t4 (new-Test4))
- (define t5 (new-Test5))
- (if (not (= (foo3 42) 42))
- (error "Bad return value!"))
- (if (not (string=? (do-method3 t2 40) "Test2::method"))
- (error "bad return value!"))
- (if (not (string=? (do-method3 t3 40) "Test3::method"))
- (error "bad return value"))
- (if (not (string=? (do-method3 t4 40) "Test4::method"))
- (error "bad return value"))
- (if (not (string=? (do-method3 t5 40) "Test5::method"))
- (error "bad return value"))
- (exit 0)