PageRenderTime 40ms CodeModel.GetById 15ms RepoModel.GetById 1ms app.codeStats 0ms

/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
  1. (define n (fact 4))
  2. (if (not (= n 24))
  3. (error "Bad return value!"))
  4. (if (not (= (Foo) 42))
  5. (error "bad variable value!"))
  6. (define t (new-Test))
  7. (if (not (string=? (Test-method t) "Test::method"))
  8. (error "Bad method return value!"))
  9. (if (not (string=? (do-method t) "Test::method"))
  10. (error "Bad return value!"))
  11. (if (not (string=? (do-method2 t) "Test::method"))
  12. (error "Bad return value!"))
  13. (weird "hello" 4)
  14. ;; (delete-Test t)
  15. (define t2 (new-Test2))
  16. (define t3 (new-Test3))
  17. (define t4 (new-Test4))
  18. (define t5 (new-Test5))
  19. (if (not (= (foo3 42) 42))
  20. (error "Bad return value!"))
  21. (if (not (string=? (do-method3 t2 40) "Test2::method"))
  22. (error "bad return value!"))
  23. (if (not (string=? (do-method3 t3 40) "Test3::method"))
  24. (error "bad return value"))
  25. (if (not (string=? (do-method3 t4 40) "Test4::method"))
  26. (error "bad return value"))
  27. (if (not (string=? (do-method3 t5 40) "Test5::method"))
  28. (error "bad return value"))
  29. (exit 0)