diff options
Diffstat (limited to 'Examples/test-suite/tcl/li_std_string_runme.tcl')
-rw-r--r-- | Examples/test-suite/tcl/li_std_string_runme.tcl | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/Examples/test-suite/tcl/li_std_string_runme.tcl b/Examples/test-suite/tcl/li_std_string_runme.tcl index 333c1f1be..2635af896 100644 --- a/Examples/test-suite/tcl/li_std_string_runme.tcl +++ b/Examples/test-suite/tcl/li_std_string_runme.tcl @@ -19,3 +19,14 @@ if {"$GlobalString2" != "hello"} { error "bad string map"} set Structure_StaticMemberString2 "hello" if {"$Structure_StaticMemberString2" != "hello"} { error "bad string map"} + +if {[stdstring_empty] != ""} { error "bad stdstring_empty test" } +if {[c_empty] != ""} { error "bad c_empty test" } +# FIXME: [c_null] seems to give an empty string currently, but Tcl doesn't have +# a real NULL value and the string "NULL" we used for elsewhere for NULL +# pointers doesn't work well here as it's indistinguishable from the string +# "NULL" being returned. +#if {[c_null] != "NULL"} { error "bad c_null test" } +#if {[get_null [c_null]] != "NULL"} { error "bad get_null c_null test" } +if {[get_null [c_empty]] != "non-null"} { error "bad get_null c_empty test" } +if {[get_null [stdstring_empty]] != "non-null"} { error "bad get_null stdstring_empty test" } |