PageRenderTime 45ms CodeModel.GetById 18ms RepoModel.GetById 0ms app.codeStats 0ms

/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
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0 
    

  1. 

  2. if [ catch { load ./li_std_string[info sharedlibextension] li_std_string} err_msg ] {
    3. 

  3. 	puts stderr "Could not load shared object:\n$err_msg"
    4. 

  4. }
    5. 

  5. 

  6. 

  7. Structure s 
    8. 

  8. if {"[s cget -MemberString2]" != "member string 2"} { error "bad string map"}
    9. 

  9. s configure -MemberString2 "hello"
    10. 

  10. if {"[s cget -MemberString2]" != "hello"} { error "bad string map"}
    11. 

  11. 

  12. if {"[s cget -ConstMemberString]" != "const member string"} { error "bad string map"}
    13. 

  13. 

  14. if {"$GlobalString2" != "global string 2"} { error "bad string map"}
    15. 

  15. if {"$Structure_StaticMemberString2" != "static member string 2"} { error "bad string map"}
    16. 

  16. 

  17. set GlobalString2 "hello"
    18. 

  18. if {"$GlobalString2" != "hello"} { error "bad string map"}
    19. 

  19. 

  20. set Structure_StaticMemberString2 "hello"
    21. 

  21. if {"$Structure_StaticMemberString2" != "hello"} { error "bad string map"}
    22. 

  22.