From: John L. <wu...@us...> - 2005-03-17 07:28:28
|
Update of /cvsroot/swig/SWIG/Examples/test-suite/chicken In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16877/Examples/test-suite/chicken Added Files: cpp_enum_runme.ss li_std_string_runme.ss throw_exception_runme.ss Log Message: Lots more bug fixes for the chicken module: almost the entire test-sutie now runs The only tests that are failing are ones that depend on std_vector.i and similar --- NEW FILE: li_std_string_runme.ss --- (load-library 'li-std-string "li_std_string.so") (include "../schemerunme/li_std_string.scm") --- NEW FILE: cpp_enum_runme.ss --- (load-library 'cpp-enum "cpp_enum.so") (include "../schemerunme/cpp_enum.scm") --- NEW FILE: throw_exception_runme.ss --- (load-library 'throw-exception "throw_exception.so") (define-macro (check-throw expr check) `(if (handle-exceptions exvar (if ,check #f (begin (print "Error executing: " ',expr " " exvar) (exit 1))) ,expr #t) (print "Expression did not throw an error: " ',expr))) (define f (new-Foo)) (check-throw (Foo-test-int f) (= exvar 37)) (check-throw (Foo-test-msg f) (string=? exvar "Dead")) (check-throw (Foo-test-cls f) (test-is-Error exvar)) (check-throw (Foo-test-cls-ptr f) (test-is-Error exvar)) (check-throw (Foo-test-cls-ref f) (test-is-Error exvar)) (check-throw (Foo-test-cls-td f) (test-is-Error exvar)) (check-throw (Foo-test-cls-ptr-td f) (test-is-Error exvar)) (check-throw (Foo-test-cls-ref-td f) (test-is-Error exvar)) ; don't know how to test this... it is returning a SWIG wrapped int * ;(check-throw (Foo-test-array f) (equal? exvar '(0 1 2 3 4 5 6 7 8 9))) (check-throw (Foo-test-multi f 1) (= exvar 37)) (check-throw (Foo-test-multi f 2) (string=? exvar "Dead")) (check-throw (Foo-test-multi f 3) (test-is-Error exvar)) (set! f #f) (gc #t) (exit 0) |