]>
Commit | Line | Data |
---|---|---|
5774fe62 DC |
1 | #!/usr/bin/perl |
2 | ||
3 | use strict; | |
4 | use warnings; | |
5 | ||
6 | use TAP::Harness; | |
7 | ||
8 | my $harness = TAP::Harness->new( { verbosity => -2 }); | |
d1aa38ae FG |
9 | my $res = $harness->runtests( "disklist_test.pm" ); |
10 | ||
b12883de | 11 | exit -1 if !$res || $res->{failed} || $res->{parse_errors}; |
5774fe62 | 12 |