#!perl -- -*- mode: cperl -*-
use Test::More;
use File::Spec;
my $Id = q$Id: bap.t 26 2003-02-16 19:01:03Z k $;
my @s;
opendir my $dh, "scripts" or die "Could not opendir scripts: $!";
for my $d (readdir $dh) {
next unless $d =~ /^\w/;
next if $d =~ /~$/;
next if $d =~ /svn$/;
push @s, $d;
}
my $tests_per_loop = 5;
my $plan = scalar @s * $tests_per_loop;
plan tests => $plan;
my $devnull = File::Spec->devnull;
for my $s (1..@s) {
my $script = "scripts/$s[$s-1]";
my $ret = system $^X, "-cw", $script;
ok !$ret, "$script:-c:$ret";
$ret = system "$^X -w $script --h > $devnull";
ok !$?, "$script:--h:$ret";
$ret = `$^X -w $script --h`;
ok scalar $ret =~ /[\s\[]--h(elp)?\b/, "$script\:h~\:$ret";
$ret = `$^X $script --version`;
ok !$?, "$script\:version\:$?";
ok scalar $ret =~ /\d\d\d/, "$script\:version\:$ret";
}
__END__