Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 25 lines (18 sloc) 529 Bytes
# Copyright (C) 2006-2007, 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; #\
source lib/test_more.tcl
plan 3
eval_is {gets} \
{wrong # args: should be "gets channelId ?varName?"} \
{no args}
eval_is {gets a b c} \
{wrong # args: should be "gets channelId ?varName?"} \
{too many args}
eval_is {gets #parrot} \
{can not find channel named "#parrot"} \
{bad channel}
Jump to Line
Something went wrong with that request. Please try again.