do.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
# $RCSfile: do.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:45 $
sub foo1
{
print $_[0];
'value';
}
sub foo2
{
shift;
print $_[0];
$x = 'value';
$x;
}
print "1..15\n";
$_[0] = "not ok 1\n";
print "#2\t:$result: eq :value:\n";
$_[0] = "not ok 4\n";
print "#5\t:$result: eq :value:\n";
print "#8\t:$result: eq :value:\n";
sub blather {
print @_;
}
@x = ("ok 11\n", "ok 12\n");
@y = ("ok 14\n", "ok 15\n");