19 lines
387 B
Perl
Executable File
19 lines
387 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use TAP::Harness;
|
|
|
|
my $harness = TAP::Harness->new( { verbosity => -1 });
|
|
my $res = $harness->runtests(
|
|
"archive_info_test.pm",
|
|
"parse_volname_test.pm",
|
|
"list_volumes_test.pm",
|
|
"path_to_volume_id_test.pm",
|
|
"get_subdir_test.pm",
|
|
"filesystem_path_test.pm",
|
|
);
|
|
|
|
exit -1 if !$res || $res->{failed} || $res->{parse_errors};
|