diff options
Diffstat (limited to 'Examples/test-suite/ocaml/li_std_string_runme.ml')
-rw-r--r-- | Examples/test-suite/ocaml/li_std_string_runme.ml | 9 |
1 files changed, 9 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 index 5f8c98a6b..3e0ad2c3b 100644 --- a/Examples/test-suite/ocaml/li_std_string_runme.ml +++ b/Examples/test-suite/ocaml/li_std_string_runme.ml @@ -41,4 +41,13 @@ let _ = ignore (_Structure_StaticMemberString2 '(s)); assert (_Structure_StaticMemberString2 '() = s); assert (_Structure_ConstStaticMemberString '() as string = "const static member string") + + assert (_stdstring_empty '() as string = "") + assert (_c_empty '() as string = "") + (* FIXME: Can't work out what C++ NULL maps to here... + assert (_c_null '() = None) + assert (_get_null (_c_null '()) = None) + *) + assert (_get_null (_c_empty '()) as string = "non-null") + assert (_get_null (_stdstring_empty '()) as string = "non-null") ;; |