/trunk/Examples/test-suite/tcl/li_std_string_runme.tcl
TCL | 21 lines | 14 code | 7 blank | 0 comment | 15 complexity | c54bbbebd3a7b072f6303395aa4388d0 MD5 | raw file
1 2if [ catch { load ./li_std_string[info sharedlibextension] li_std_string} err_msg ] { 3 puts stderr "Could not load shared object:\n$err_msg" 4} 5 6 7Structure s 8if {"[s cget -MemberString2]" != "member string 2"} { error "bad string map"} 9s configure -MemberString2 "hello" 10if {"[s cget -MemberString2]" != "hello"} { error "bad string map"} 11 12if {"[s cget -ConstMemberString]" != "const member string"} { error "bad string map"} 13 14if {"$GlobalString2" != "global string 2"} { error "bad string map"} 15if {"$Structure_StaticMemberString2" != "static member string 2"} { error "bad string map"} 16 17set GlobalString2 "hello" 18if {"$GlobalString2" != "hello"} { error "bad string map"} 19 20set Structure_StaticMemberString2 "hello" 21if {"$Structure_StaticMemberString2" != "hello"} { error "bad string map"}