]>
Commit | Line | Data |
---|---|---|
cd554b79 AA |
1 | #!/usr/bin/perl |
2 | ||
3 | use strict; | |
4 | use warnings; | |
5 | ||
aa738ee3 FG |
6 | # to ensure consistent ctime values on all systems |
7 | $ENV{TZ} = 'UTC'; | |
8 | ||
cd554b79 AA |
9 | use TAP::Harness; |
10 | ||
11 | my $harness = TAP::Harness->new( { verbosity => -1 }); | |
6a27e817 AA |
12 | my $res = $harness->runtests( |
13 | "archive_info_test.pm", | |
14 | "parse_volname_test.pm", | |
15 | "list_volumes_test.pm", | |
e4dbfde3 | 16 | "path_to_volume_id_test.pm", |
ddd313c9 | 17 | "get_subdir_test.pm", |
2eb7ba26 | 18 | "filesystem_path_test.pm", |
8f26b391 | 19 | "prune_backups_test.pm", |
6a27e817 | 20 | ); |
cd554b79 AA |
21 | |
22 | exit -1 if !$res || $res->{failed} || $res->{parse_errors}; |