diff options
| author | Reinhard Tartler <siretart@tauware.de> | 2008-01-19 15:08:54 +0100 |
|---|---|---|
| committer | Reinhard Tartler <siretart@tauware.de> | 2008-01-19 15:08:54 +0100 |
| commit | 2733267954e91e394fbb512ea3abb4c497c0752f (patch) | |
| tree | d6cdebd8776bceba06a2fb5e4ed06a4744bc1b57 /test/bbackupd/testfiles/extcheck2.pl | |
| parent | 1d56581c644c53f1b9a182c6574bc2fc5243d4d1 (diff) | |
import version 0.11rc1
This commit has been made by 'bzr import'. I used the upstream tarball
of Version 0.11rc1 for creating it. It has the md5sum:
75608d8bb72dff9a556850ccd0ae8cb9
Diffstat (limited to 'test/bbackupd/testfiles/extcheck2.pl')
| -rwxr-xr-x | test/bbackupd/testfiles/extcheck2.pl | 22 |
1 files changed, 17 insertions, 5 deletions
diff --git a/test/bbackupd/testfiles/extcheck2.pl b/test/bbackupd/testfiles/extcheck2.pl index abf63ba9..4c2733a2 100755 --- a/test/bbackupd/testfiles/extcheck2.pl +++ b/test/bbackupd/testfiles/extcheck2.pl @@ -1,5 +1,5 @@ #!/usr/bin/perl -# distribution boxbackup-0.10 (svn version: 494) +# distribution boxbackup-0.11rc1 (svn version: 2023_2024) # # Copyright (c) 2003 - 2006 # Ben Summers and contributors. All rights reserved. @@ -39,7 +39,9 @@ # use strict; -unless(open IN,"../../bin/bbackupquery/bbackupquery -q -c testfiles/bbackupd.conf -l testfiles/query4.log \"compare -ac\" quit|") +my $flags = $ARGV[0] or ""; + +unless(open IN,"../../bin/bbackupquery/bbackupquery -q -c testfiles/bbackupd.conf -l testfiles/query4.log \"compare -ac$flags\" quit 2>&1 |") { print "Couldn't open compare utility\n"; exit 2; @@ -52,13 +54,23 @@ while(<IN>) next unless m/\S/; if(m/continousupdate/) { - $ret = 2 unless m/contents/ || m/attributes/; + unless (m/contents/ or m/attributes/) + { + print "FAIL: continuousupdate line does not match\n"; + $ret = 2; + } } else { - $ret = 2 unless m/\AWARNING/ || m/\ADifferences/ || /might be reason/ || /probably due to file mod/; + unless (/\AWARNING/ or /\ADifferences/ or /might be reason/ + or /probably due to file mod/) + { + print "FAIL: summary line does not match\n"; + $ret = 2; + } } - print; + + print "READ: $_"; } close IN; |