[svn:parrot] rev 8739 - trunk/languages/tcl/t

[coke]

Author: coke
Date: Sat Jul 30 08:08:17 2005
New Revision: 8739

Modified:
   trunk/languages/tcl/t/tcl_pir_compiler.t
Log:
Another test for tcl's compiler

Courtesy Thilo Planz



Modified: trunk/languages/tcl/t/tcl_pir_compiler.t
==============================================================================
--- trunk/languages/tcl/t/tcl_pir_compiler.t    (original)
+++ trunk/languages/tcl/t/tcl_pir_compiler.t    Sat Jul 30 08:08:17 2005
@@ -1,7 +1,7 @@
 #!perl
 
 use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
-use Parrot::Test tests => 3;
+use Parrot::Test tests => 4;
 use Test::More;
 use vars qw($TODO);
 
@@ -56,4 +56,16 @@ pir_output_is(<<'CODE', <<'OUTPUT', "pas
 CODE
 hello
 OUTPUT
+
+pir_output_is(<<'CODE', <<'OUTPUT', "invoke argless tcl proc from PIR");
+.sub _main @MAIN
+  load_bytecode "languages/tcl/lib/tcllib.pbc"
+  $S1 = 'proc hey {} { puts 11 }; hey; '
+  $P1 = compreg 'TCL'
+  $P0 = compile $P1, $S1
+  $P0()
+.end
+CODE
+11
+OUTPUT
 }