languages/tcl/t/cmd_parray.t

   1 #!perl
   2
   3 # Copyright (C) 2005-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 => 6;
  11 use Test::More;
  12
  13 language_output_is( "tcl", <<'TCL', <<OUT, "no args" );
  14  parray
  15 TCL
  16 wrong # args: should be "parray a ?pattern?"
  17 OUT
  18
  19 language_output_is( "tcl", <<'TCL', <<OUT, "too many args" );
  20  parray a b c d
  21 TCL
  22 wrong # args: should be "parray a ?pattern?"
  23 OUT
  24
  25 language_output_is( "tcl", <<'TCL', <<OUT, "bad array" );
  26   parray bad_array
  27 TCL
  28 "bad_array" isn't an array
  29 OUT
  30
  31 language_output_is( "tcl", <<'TCL', <<OUT, "bad array, with pattern" );
  32   parray bad_array bork?
  33 TCL
  34 "bad_array" isn't an array
  35 OUT
  36
  37 language_output_is( "tcl", <<'TCL', <<OUT, "with pattern" );
  38   array set a [list z always ab first coco last]
  39   parray a a*
  40 TCL
  41 a(ab) = first
  42 OUT
  43
  44 language_output_is( "tcl", <<'TCL', <<OUT, "normal usage" );
  45   array set a [list z always ab first coco last]
  46   parray a
  47 TCL
  48 a(ab)   = first
  49 a(coco) = last
  50 a(z)    = always
  51 OUT
  52
  53 # Local Variables:
  54 #   mode: cperl
  55 #   cperl-indent-level: 4
  56 #   fill-column: 100
  57 # End:
  58 # vim: expandtab shiftwidth=4: