index eeba30ec8b9e965bff278a730cf13d28f6d900e5..2ee9e48d3ac90b64a7702fc51d9435e8aa67dbc7 100644 (file)
sub taptest
{
my $dir = shift;
+ my @args;
+
+ if ($dir =~ /^PROVE_FLAGS=/)
+ {
+ push(@args, $dir);
+ $dir = shift;
+ }
die "no tests found!" unless -d "$topdir/$dir/t";
+ push(@args,"$topdir/$dir);
+
InstallTemp();
- my $status = tap_check("$topdir/$dir");
+ my $status = tap_check(@args);
exit $status if $status;
}