]>
Commit | Line | Data |
---|---|---|
cd554b79 AA |
1 | #!/usr/bin/perl |
2 | ||
3 | use strict; | |
4 | use warnings; | |
5 | ||
6 | use TAP::Harness; | |
7 | ||
8 | my $harness = TAP::Harness->new( { verbosity => -1 }); | |
c48801b5 | 9 | my $res = $harness->runtests("archive_info_test.pm", "parse_volname_test.pm"); |
cd554b79 AA |
10 | |
11 | exit -1 if !$res || $res->{failed} || $res->{parse_errors}; | |
12 |