/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. if [ catch { load ./li_std_string[info sharedlibextension] li_std_string} err_msg ] {
  2. puts stderr "Could not load shared object:\n$err_msg"
  3. }
  4. Structure s
  5. if {"[s cget -MemberString2]" != "member string 2"} { error "bad string map"}
  6. s configure -MemberString2 "hello"
  7. if {"[s cget -MemberString2]" != "hello"} { error "bad string map"}
  8. if {"[s cget -ConstMemberString]" != "const member string"} { error "bad string map"}
  9. if {"$GlobalString2" != "global string 2"} { error "bad string map"}
  10. if {"$Structure_StaticMemberString2" != "static member string 2"} { error "bad string map"}
  11. set GlobalString2 "hello"
  12. if {"$GlobalString2" != "hello"} { error "bad string map"}
  13. set Structure_StaticMemberString2 "hello"
  14. if {"$Structure_StaticMemberString2" != "hello"} { error "bad string map"}