Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: d0eb5328c1
Fetching contributors…

Cannot retrieve contributors at this time

executable file 37 lines (28 sloc) 0.809 kb
#!perl
# Copyright (C) 2004-2006, The Parrot Foundation.
# the following lines re-execute this as a tcl script
# the \ at the end of these lines makes them a comment in tcl \
use lib qw(lib); #\
use Tcl::Test; #\
__DATA__
source lib/test_more.tcl
plan 5
eval_is {error} \
{wrong # args: should be "error message ?errorInfo? ?errorCode?"} \
{error no args}
eval_is {error a b c d} \
{wrong # args: should be "error message ?errorInfo? ?errorCode?"} \
{error too many args}
eval_is {error dead} dead {simple error}
eval_is {
global errorInfo
global errorCode
catch { error "dead" eek }
list $errorInfo $errorCode
} {eek NONE} {error with info}
eval_is {
global errorInfo
global errorCode
catch { error "dead" eek mouse}
list $errorInfo $errorCode
} {eek mouse} {error with code}
Jump to Line
Something went wrong with that request. Please try again.