From 90dce1af3ea1ecdf07d36bd0dcb313fb6ff6c81b Mon Sep 17 00:00:00 2001 From: Zackery Spytz Date: Sun, 4 Dec 2022 19:37:22 -0800 Subject: [OCaml] Runtime tests for rename_rstrip_encoder and using2 Add runtime tests for rename_rstrip_encoder and using2. They are based on the runtime tests that already exist for other languages. --- Examples/test-suite/ocaml/rename_rstrip_encoder_runme.ml | 5 +++++ Examples/test-suite/ocaml/using2_runme.ml | 4 ++++ 2 files changed, 9 insertions(+) create mode 100644 Examples/test-suite/ocaml/rename_rstrip_encoder_runme.ml create mode 100644 Examples/test-suite/ocaml/using2_runme.ml (limited to 'Examples') diff --git a/Examples/test-suite/ocaml/rename_rstrip_encoder_runme.ml b/Examples/test-suite/ocaml/rename_rstrip_encoder_runme.ml new file mode 100644 index 000000000..d4c418fa0 --- /dev/null +++ b/Examples/test-suite/ocaml/rename_rstrip_encoder_runme.ml @@ -0,0 +1,5 @@ +open Swig +open Rename_rstrip_encoder + +let s = new_SomeThing '() +let a = new_AnotherThing '() diff --git a/Examples/test-suite/ocaml/using2_runme.ml b/Examples/test-suite/ocaml/using2_runme.ml new file mode 100644 index 000000000..1ec9e2e55 --- /dev/null +++ b/Examples/test-suite/ocaml/using2_runme.ml @@ -0,0 +1,4 @@ +open Swig +open Using2 + +let _ = assert (_spam '(37) as int = 37) -- cgit v1.2.1 From b7f64c4da55ed6faacbbfa665825e5d1326aa8ee Mon Sep 17 00:00:00 2001 From: William S Fulton Date: Fri, 30 Dec 2022 23:49:07 +0000 Subject: Complete copy of testcase from Python --- Examples/test-suite/ocaml/rename_rstrip_encoder_runme.ml | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'Examples') diff --git a/Examples/test-suite/ocaml/rename_rstrip_encoder_runme.ml b/Examples/test-suite/ocaml/rename_rstrip_encoder_runme.ml index d4c418fa0..88be24fcb 100644 --- a/Examples/test-suite/ocaml/rename_rstrip_encoder_runme.ml +++ b/Examples/test-suite/ocaml/rename_rstrip_encoder_runme.ml @@ -2,4 +2,6 @@ open Swig open Rename_rstrip_encoder let s = new_SomeThing '() -let a = new_AnotherThing '() +let a = new_AnotherThing '() in + assert (a -> DoClsX () = C_void); +;; -- cgit v1.2.1