Author: coke Date: Mon May 5 22:49:04 2008 New Revision: 27335 Modified: trunk/languages/tcl/t/cmd_inline.t
Log: [tcl] Test for http://code.google.com/p/partcl/issues/detail?id=54 (catch exceptions in [inline]) Modified: trunk/languages/tcl/t/cmd_inline.t ============================================================================== --- trunk/languages/tcl/t/cmd_inline.t (original) +++ trunk/languages/tcl/t/cmd_inline.t Mon May 5 22:49:04 2008 @@ -7,7 +7,7 @@ use warnings; use lib qw(tcl/lib ./lib ../lib ../../lib ../../../lib); -use Parrot::Test tests => 3; +use Parrot::Test tests => 4; use Test::More; language_output_is( "tcl", <<'TCL', <<'OUT', "PIR compiler" ); @@ -37,6 +37,19 @@ invalid language "JAVA" specified OUT +language_output_is( "tcl", <<'TCL', <<'OUT', "invalid PIR code" ); +catch { + inline PIR { + .sub test + say "not ok + .end + } +} err +puts "ok" +TCL +ok +OUT + # Local Variables: # mode: cperl # cperl-indent-level: 4
