@INC = '../lib';
}
-print "1..13\n";
+print "1..14\n";
my $i = 1;
printf "ok %d\n",$i++;
}
+sub test_too_few {
+ eval $_[0];
+ print "not " unless $@ =~ /^Not enough arguments/;
+ printf "ok %d\n",$i++;
+}
+
sub test_no_error {
eval $_[0];
print "not " if $@;
uc($bar,$bar);
];
+test_too_few($_) for split /\n/,
+q[ unpack;
+];
+
test_no_error($_) for split /\n/,
q[ scalar(&foo,$bar);
defined &foo, &foo, &foo;