TODO: { local $::TODO = "not sure if this is the right way for these to behave. research tcl.\n"; pir_output_is(match_close(8),19,"matched quote"); pir_output_is(match_close(25),34,"matched brace"); }