1 files changed, 44 insertions, 0 deletions
diff --git a/Examples/test-suite/ocaml/li_std_string_runme.ml b/Examples/test-suite/ocaml/li_std_string_runme.ml
new file mode 100644
index 000000000..5f8c98a6b
--- /dev/null
+++ b/Examples/test-suite/ocaml/li_std_string_runme.ml
@@ -0,0 +1,44 @@
+open Swig
+open Li_std_string
+
+let _ =
+  assert (_test_value '("Fee") as string = "Fee");
+  try
+    ignore (_test_value '(None)); assert false
+  with Invalid_argument _ -> ()
+
+  assert (_test_const_reference '("Fee") as string = "Fee");
+  try
+    ignore (_test_const_reference '(None)); assert false
+  with Invalid_argument _ -> ()
+
+  let stringPtr = _test_pointer_out '() in
+  ignore (_test_pointer '(stringPtr));
+  let stringPtr = _test_const_pointer_out '() in
+  ignore (_test_const_pointer '(stringPtr));
+  let stringPtr = _test_reference_out '() in
+  ignore (_test_reference '(stringPtr));
+
+  try
+    ignore (_test_throw '()); assert false
+  with Failure s -> assert (s = "test_throw message")
+  try
+    ignore (_test_const_reference_throw '()); assert false
+  with Failure s -> assert (s = "test_const_reference_throw message")
+  assert (_GlobalString2 '() as string = "global string 2");
+  let s = C_string "initial string" in
+  ignore (_GlobalString2 '(s));
+  assert (_GlobalString2 '() = s);
+  assert (_ConstGlobalString '() as string = "const global string");
+
+  let myStructure = new_Structure '() in
+  assert (myStructure -> "[MemberString2]" () as string = "member string 2");
+  assert (myStructure -> "[MemberString2]" (s) = C_void);
+  assert (myStructure -> "[MemberString2]" () = s);
+  assert (myStructure -> "[ConstMemberString]" () as string = "const member string");
+
+  assert (_Structure_StaticMemberString2 '() as string = "static member string 2");
+  ignore (_Structure_StaticMemberString2 '(s));
+  assert (_Structure_StaticMemberString2 '() = s);
+  assert (_Structure_ConstStaticMemberString '() as string = "const static member string")
+;;