TODO: { local $::TODO = "don't handle negative indices yet."; $tcl = <<'EOTCL'; puts -nonewline [string index abcde -1] EOTCL $expected = ""; language_output_is("tcl",$tcl,$expected,"index, too near?"); }