diff options
Diffstat (limited to 'test/bbackupd/testfiles/extcheck2.pl.in')
-rwxr-xr-x | test/bbackupd/testfiles/extcheck2.pl.in | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/test/bbackupd/testfiles/extcheck2.pl.in b/test/bbackupd/testfiles/extcheck2.pl.in new file mode 100755 index 00000000..68baa045 --- /dev/null +++ b/test/bbackupd/testfiles/extcheck2.pl.in @@ -0,0 +1,29 @@ +#!@PERL@ +use strict; + +unless(open IN,"../../bin/bbackupquery/bbackupquery -q -c testfiles/bbackupd.conf -l testfiles/query4.log \"compare -ac\" quit|") +{ + print "Couldn't open compare utility\n"; + exit 2; +} + +my $ret = 1; + +while(<IN>) +{ + next unless m/\S/; + if(m/continousupdate/) + { + $ret = 2 unless m/contents/ || m/attributes/; + } + else + { + $ret = 2 unless m/\AWARNING/ || m/\ADifferences/ || /might be reason/ || /probably due to file mod/; + } + print; +} + +close IN; + +exit $ret; + |