10 die "usage: test.pl [-v] [-c COMMAND]\n" unless GetOptions(
11 "verbose|v" => \$verbose,
12 "command|c=s" => \$main);
26 &runtest(7,4,"1.66667");
27 &runtest(7,5,"1.66667");
31 my ($n, $m, $expected) = @_;
32 &singletest("$main $n $m", $expected);
33 for (my $i = 0; $i < 10; $i++) {
34 &singletest("$main -j4 $n $m", $expected);
39 my ($cmd, $expected) = @_;
40 print "test: $cmd\n" if $verbose;
41 open my $pipe, "-|", "$cmd 2>/dev/null"
43 my $firstline = <$pipe>;
45 die "$cmd: first line of output not as expected:\n$firstline\n"
46 unless $firstline =~ /^(\d+) into (\d+): min fragment ([\d\.e\+\-]+)/;
47 die "$cmd: min fragment $3, expected $expected\n"
48 unless $3 eq $expected;