516036631c
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@4141 626c5289-ae23-0410-ae9c-e8d60b6d4f22
27 lines
739 B
OCaml
27 lines
739 B
OCaml
(* Throw exception test *)
|
|
|
|
open Throw_exception
|
|
|
|
let x = new_Foo C_void ;;
|
|
let _ =
|
|
try
|
|
(invoke x) "test_int" C_void
|
|
with (Failure "Exception(37): Thrown exception from C++ (int)\n") ->
|
|
try
|
|
(invoke x) "test_msg" C_void
|
|
with (Failure "Exception(0): Dead\n") ->
|
|
try
|
|
(invoke x) "test_cls" C_void
|
|
with (Failure "Exception(0): Thrown exception from C++ (unknown)\n") ->
|
|
try
|
|
(invoke x) "test_multi" (C_int 1)
|
|
with (Failure "Exception(37): Thrown exception from C++ (int)\n") ->
|
|
try
|
|
(invoke x) "test_multi" (C_int 2)
|
|
with (Failure "Exception(0): Dead\n") ->
|
|
try
|
|
(invoke x) "test_multi" (C_int 3)
|
|
with (Failure "Exception(0): Thrown exception from C++ (unknown)\n") ->
|
|
exit 0
|
|
|
|
let _ = exit 1
|