22 lines
332 B
Perl
22 lines
332 B
Perl
|
#!/usr/bin/env perl
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
my @tests = (
|
||
|
|
'zmpkg.pl start',
|
||
|
|
'zmfilter.pl -f purgewhenfull',
|
||
|
|
);
|
||
|
|
|
||
|
|
sub run_test {
|
||
|
|
my $test = $_[0];
|
||
|
|
print "Running test: '$test'";
|
||
|
|
|
||
|
|
my @args = ('sudo', $test);
|
||
|
|
system(@args) == 0 or die "'$test' failed to run!";
|
||
|
|
}
|
||
|
|
|
||
|
|
foreach my $test (@tests) {
|
||
|
|
run_test($test);
|
||
|
|
}
|