| |
| if [ catch { load ./li_std_string[info sharedlibextension] li_std_string} err_msg ] { |
| puts stderr "Could not load shared object:\n$err_msg" |
| } |
| |
| |
| Structure s |
| if {"[s cget -MemberString2]" != "member string 2"} { error "bad string map"} |
| s configure -MemberString2 "hello" |
| if {"[s cget -MemberString2]" != "hello"} { error "bad string map"} |
| |
| if {"[s cget -ConstMemberString]" != "const member string"} { error "bad string map"} |
| |
| if {"$GlobalString2" != "global string 2"} { error "bad string map"} |
| if {"$Structure_StaticMemberString2" != "static member string 2"} { error "bad string map"} |
| |
| set GlobalString2 "hello" |
| if {"$GlobalString2" != "hello"} { error "bad string map"} |
| |
| set Structure_StaticMemberString2 "hello" |
| if {"$Structure_StaticMemberString2" != "hello"} { error "bad string map"} |