diff options
Diffstat (limited to 'Examples/test-suite/ocaml/primitive_ref_runme.ml')
-rw-r--r-- | Examples/test-suite/ocaml/primitive_ref_runme.ml | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/Examples/test-suite/ocaml/primitive_ref_runme.ml b/Examples/test-suite/ocaml/primitive_ref_runme.ml new file mode 100644 index 000000000..7c96caac2 --- /dev/null +++ b/Examples/test-suite/ocaml/primitive_ref_runme.ml @@ -0,0 +1,20 @@ +open Swig +open Primitive_ref + +let _ = + assert (_ref_int '(3) as int = 3); + assert (_ref_short '(3) as int = 3); + assert (_ref_ushort '(3) as int = 3); + assert (_ref_long '(3) as int = 3); + assert (_ref_ulong '(3) as int = 3); + assert (_ref_schar '(3) as int = 3); + assert (_ref_uchar '(3) as int = 3); + assert (_ref_float '(3.5) as float = 3.5); + assert (_ref_double '(3.5) as float = 3.5); + assert (_ref_bool '(true) as bool = true); + let arg = C_char 'x' in + assert (_ref_char '(arg) as char = 'x'); + assert (_ref_over '(0) as int = 0); + let a = new_A '(12) in + assert (_ref_over '(a) as int = 12); +;; |