Author: coke
Date: Fri May 27 20:00:05 2005
New Revision: 8189
Added:
trunk/languages/tcl/t/cmd_inline.t (contents, props changed)
Modified:
trunk/MANIFEST
Log:
Add tests for [inline], which isn't really a tcl command, but
was too cool to leave out.
Modified: trunk/MANIFEST
==============================================================================
--- trunk/MANIFEST (original)
+++ trunk/MANIFEST Fri May 27 20:00:05 2005
@@ -1400,6 +1400,7 @@ languages/tcl/t/cmd_format.t
languages/tcl/t/cmd_global.t [tcl]
languages/tcl/t/cmd_if.t [tcl]
languages/tcl/t/cmd_incr.t [tcl]
+languages/tcl/t/cmd_inline.t [tcl]
languages/tcl/t/cmd_join.t [tcl]
languages/tcl/t/cmd_lappend.t [tcl]
languages/tcl/t/cmd_linsert.t [tcl]
Added: trunk/languages/tcl/t/cmd_inline.t
==============================================================================
--- (empty file)
+++ trunk/languages/tcl/t/cmd_inline.t Fri May 27 20:00:05 2005
@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+
+use strict;
+use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
+use Parrot::Test tests => 2;
+
+my($tcl,$expected);
+
+language_output_is("tcl",<<'TCL',<<'OUT',"PIR compiler");
+ inline PIR {
+ .sub test
+ print "ok\n"
+ .end
+ }
+TCL
+ok
+OUT
+
+language_output_is("tcl",<<'TCL',<<'OUT',"PIR compiler");
+ inline PASM {
+ print "ok\n"
+ }
+TCL
+ok
+OUT
