Initial commit of perl test script for travis builds

This commit is contained in:
Kyle Johnson 2014-01-04 14:44:12 -05:00
parent 6e5d9272e0
commit 2b789332c8
1 changed files with 21 additions and 0 deletions

21
utils/travis.pl Normal file
View File

@ -0,0 +1,21 @@
#!/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);
}