/trunk/Examples/test-suite/tcl/li_std_string_runme.tcl

 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"}