e4dbfde31f
Test to reduce the potential for accidental breakage on regex changes. Signed-off-by: Alwin Antreich <a.antreich@proxmox.com>
17 lines
330 B
Perl
Executable File
17 lines
330 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",
|
|
);
|
|
|
|
exit -1 if !$res || $res->{failed} || $res->{parse_errors};
|