languages/tcl/t/cmd_error.t

   1 #!perl
   2
   3 # Copyright (C) 2004-2006, The Perl Foundation.
   4 # $Id$
   5
   6 # the following lines re-execute this as a tcl script
   7 # the \ at the end of these lines makes them a comment in tcl \
   8 use lib qw(languages/tcl/lib tcl/lib lib ../lib ../../lib); # \
   9 use Tcl::Test; #\
  10 __DATA__
  11
  12 source lib/test_more.tcl
  13 plan 5
  14
  15 eval_is {error} \
  16   {wrong # args: should be "error message ?errorInfo? ?errorCode?"} \
  17   {error no args}
  18
  19 eval_is {error a b c d} \
  20   {wrong # args: should be "error message ?errorInfo? ?errorCode?"} \
  21   {error too many args}
  22
  23 eval_is {error dead} dead {simple error}
  24
  25 eval_is {
  26   global errorInfo
  27   global errorCode
  28   catch { error "dead" eek }
  29   list $errorInfo $errorCode
  30 } {eek NONE} {error with info}
  31
  32 eval_is {
  33   global errorInfo
  34   global errorCode
  35   catch { error "dead" eek mouse}
  36   list $errorInfo $errorCode
  37 } {eek mouse} {error with code}