+ my ($regular, $valgrind);
+ GetOptions(regular => \$regular, valgrind => \$valgrind) or exit;
+ if (not $regular || $valgrind) {
+ die "$0: neither --regular nor --valgrind specified, exiting\n";
+ }
+ elsif ($regular && $valgrind) {
+ die "$0: both --regular and --valgrind specified, exiting\n";
+ }
+ $valgrind_cmd = "$valgrind_command " if $valgrind;
+}
+
+{
+ my @test_files;
+ find ({ wanted => sub { push @test_files, $File::Find::name if /\.t$/ } }, 't');
+ eval { runtests(sort @test_files) } or warn $@;