Author: coke
Date: Fri Sep 16 19:28:42 2005
New Revision: 9205
Modified:
branches/leo-ctx5/languages/tcl/t/cmd_global.t
Log:
Add another [global] test to keep us honest.
Modified: branches/leo-ctx5/languages/tcl/t/cmd_global.t
==============================================================================
--- branches/leo-ctx5/languages/tcl/t/cmd_global.t (original)
+++ branches/leo-ctx5/languages/tcl/t/cmd_global.t Fri Sep 16 19:28:42 2005
@@ -2,10 +2,20 @@
use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
-use Parrot::Test tests => 5;
+use Parrot::Test tests => 6;
use Test::More;
use vars qw($TODO);
+language_output_is("tcl",<<'TCL',<<OUT,"missing unreferenced global");
+ proc a {} {
+ global q
+ puts "ok"
+ }
+ a
+TCL
+ok
+OUT
+
language_output_is("tcl",<<'TCL',<<OUT,"missing global");
proc a {} {
global q
