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 | |
11 | exit -1 if $res->{failed}; |
5774fe62 |
12 | |