tcl/tests/pkg/magicchar.tcl

   1 set dollar1 "this string contains an unescaped dollar sign -> \\$foo"
   2 set dollar2 "this string contains an escaped dollar sign -> \$foo \\\$foo"
   3 set bracket1 "this contains an unescaped bracket [NoSuchProc]"
   4 set bracket2 "this contains an escaped bracket \[NoSuchProc\]"
   5 set bracket3 "this contains nested unescaped brackets [[NoSuchProc]]"
   6 proc testProc {} {}