#!/usr/bin/perl

use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
use Parrot::Test tests => 3;
use vars qw($TODO);

language_output_is("tcl",<<TCL,<<OUT,"missing global");
  proc a {} {
    global q
    puts \$q
 }
 a
TCL
can't read "q": no such variable
OUT

language_output_is("tcl",<<TCL,<<OUT,"one global");
  proc a {} {
    global q
    puts \$q
 }
 set q 2
 a
TCL
2
OUT

language_output_is("tcl",<<TCL,<<OUT,"few globals");
  proc a {} {
    global q r s
    puts "\$q \$r \$s"
 }
 set q 1
 set r 2
 set s 3
 a
TCL
1 2 3
OUT

#!/usr/bin/perl

use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
use Parrot::Test tests => 3;
use vars qw($TODO);

language_output_is("tcl",<<'TCL',<<OUT,"missing global");
  proc a {} {
    global q
    puts $q
 }
 a
TCL
can't read "q": no such variable
OUT

language_output_is("tcl",<<'TCL',<<OUT,"one global");
  proc a {} {
    global q
    puts $q
 }
 set q 2
 a
TCL
2
OUT

language_output_is("tcl",<<'TCL',<<OUT,"few globals");
  proc a {} {
    global q r s
    puts "$q $r $s"
 }
 set q 1
 set r 2
 set s 3
 a
TCL
1 2 3
OUT

Make some tests easier to read
Make some tests easier to read



git-svn-id: 6e74a02f85675cec270f5d931b0f6998666294a3@7887 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
