#
# It is impossible to test every prototype that can be specified, but
# we should test as many as we can.
+#
-use strict;
-
-my $i = 1;
-
-##
-## Something really weird is happening here. Try changing the order
-## of the next three lines, and try moving them to after the definition
-## of testing, some combinations cause the script to fail while
-## running tests on (&\@)
-##
+BEGIN {
+ chdir 't' if -d 't';
+ @INC = '../lib';
+}
-my %hash;
-my @array;
-@_ = qw(a b c d);
+use strict;
print "1..74\n";
+my $i = 1;
+
sub testing (&$) {
my $p = prototype(shift);
my $c = shift;
printf "ok %d\n",$i++;
}
+@_ = qw(a b c d);
+my @array;
+my %hash;
##
##