#!/usr/bin/perl

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

TODO: {
  local $TODO = "switch not written yet."

language_output_is("tcl",<<'TCL',<<OUT,"too few args, 0");
 switch
TCL
wrong # args: should be "switch ?switches? string pattern body ... ?default body?"
OUT

language_output_is("tcl",<<'TCL',<<OUT,"too few args, 1");
 switch a
TCL
wrong # args: should be "switch ?switches? string pattern body ... ?default body?"
OUT

language_output_is("tcl",<<'TCL',<<OUT,"implied exact, singleton");
 switch a a {puts a}
TCL
a
OUT

language_output_is("tcl",<<'TCL',<<OUT,"implied exact, two choices");
 switch b a {
   puts a
 } b {
   puts b
 } 
TCL
b
OUT

language_output_is("tcl",<<'TCL',<<OUT,"implied exact, --");
 switch -- -a -a {puts -a}
TCL
-a
OUT

language_output_is("tcl",<<'TCL',<<OUT,"implied exact, --, two choices");
 switch -b -a {
   puts a
 } -b {
   puts b
 } 
TCL
b
OUT

}

#!/usr/bin/perl

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

TODO: {
  local $TODO = "switch not written yet.";

language_output_is("tcl",<<'TCL',<<OUT,"too few args, 0");
 switch
TCL
wrong # args: should be "switch ?switches? string pattern body ... ?default body?"
OUT

language_output_is("tcl",<<'TCL',<<OUT,"too few args, 1");
 switch a
TCL
wrong # args: should be "switch ?switches? string pattern body ... ?default body?"
OUT

language_output_is("tcl",<<'TCL',<<OUT,"implied exact, singleton");
 switch a a {puts a}
TCL
a
OUT

language_output_is("tcl",<<'TCL',<<OUT,"implied exact, two choices");
 switch b a {
   puts a
 } b {
   puts b
 } 
TCL
b
OUT

language_output_is("tcl",<<'TCL',<<OUT,"implied exact, --");
 switch -- -a -a {puts -a}
TCL
-a
OUT

language_output_is("tcl",<<'TCL',<<OUT,"implied exact, --, two choices");
 switch -b -a {
   puts a
 } -b {
   puts b
 } 
TCL
b
OUT

}

Fix the syntax error in the test script
tcl: Fix the syntax error in the test script

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