TODO: { local $::TODO = "unknown"; $tcl = <<'EOTCL'; set a "St\\[ring Parsing" puts $a EOTCL $expected = "St\\[ring Parsing\n"; language_output_is("tcl",$tcl,$expected,"semi-escaped brace"); }

TODO: { local $::TODO = "unknown"; $tcl = <<'EOTCL'; set a [set b \[] puts -nonewline $a EOTCL $expected = "["; language_output_is("tcl",$tcl,$expected,"embedded escaped open brace"); }

TODO: { local $::TODO = "borked. needs fixing."; $tcl = <<'EOTCL'; set a "2 [set b 3] puts -nonewline $a EOTCL $expected = "2 3"; language_output_is("tcl",$tcl,$expected,"command subst inside string"); }