languages/tcl/t/cmd_exit.t

   1 #!perl
   2
   3 # Copyright (C) 2004-2006, The Perl Foundation.
   4 # $Id$
   5
   6 use strict;
   7 use warnings;
   8 use lib qw(tcl/lib ./lib ../lib ../../lib ../../../lib);
   9
  10 use Parrot::Test tests => 3;
  11 use Test::More;
  12
  13 language_output_is( "tcl", <<'TCL', <<OUT, "noarg" );
  14  puts here
  15  exit
  16  puts nothere
  17 TCL
  18 here
  19 OUT
  20
  21 language_output_is( "tcl", <<'TCL', <<OUT, "bad arg" );
  22  exit bork
  23 TCL
  24 expected integer but got "bork"
  25 OUT
  26
  27 language_output_is( "tcl", <<'TCL', <<OUT, "too many args" );
  28  exit bork me
  29 TCL
  30 wrong # args: should be "exit ?returnCode?"
  31 OUT
  32
  33 # (RT#40777): should check return value of exit, also
  34
  35 # Local Variables:
  36 #   mode: cperl
  37 #   cperl-indent-level: 4
  38 #   fill-column: 100
  39 # End:
  40 # vim: expandtab shiftwidth=4: