1 #!perl -- -*- mode: cperl -*-
5 sub _f ($) {File::Spec->catfile(split /\//, shift);}
7 my $Id = q$Id: bap.t 26 2003-02-16 19:01:03Z k $;
9 my @s = grep {-x $_} grep { !/~/ } glob("bin/rrr*");
11 my $tests_per_loop = 3;
12 my $plan = scalar @s * $tests_per_loop;
15 my $devnull = File::Spec->devnull;
17 my $script = _f($s[$s-1]);
18 open my $fh, "-|", qq{"$^X" "-Ilib" "-cw" "$script" 2>&1} or die "could not fork: $!";
24 ok 1==$ret, "$script:-c:$ret";
25 open $fh, "-|", qq{"$^X" "-Ilib" "$script" "-help" 2>&1} or die "could not fork: $!";
28 $seen_usage++ if /Usage:/;
31 ok 1==$ret, "$script:-help:ret=$ret";
32 ok 0<$seen_usage, "$script:-help:su=$seen_usage";
39 # cperl-indent-level: 2