mirror of
https://github.com/jiangcuo/pve-storage.git
synced 2026-01-11 16:28:02 +00:00
13 lines
199 B
Perl
Executable File
13 lines
199 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use TAP::Harness;
|
|
|
|
my $harness = TAP::Harness->new( { verbosity => -2 });
|
|
my $res = $harness->runtests( "disklist_test.pm" );
|
|
|
|
exit -1 if $res->{failed};
|
|
|