diff options
author | Chris Wilson <chris+github@qwirx.com> | 2015-12-26 23:40:20 +0000 |
---|---|---|
committer | Chris Wilson <chris+github@qwirx.com> | 2015-12-26 23:40:20 +0000 |
commit | 78e9dac99b12ae057060aa507ad9e523f2687ae4 (patch) | |
tree | 44bab942691a84ba9f23578da1184ec1a54ff019 /test | |
parent | cecb99b48ac1e4123ef835dc442fcf90e517e998 (diff) |
Replace Unix-specific paths used by test/bbackupd with native paths.
Should fix some problems with running the perl scripts, causing test failures
on Windows.
Diffstat (limited to 'test')
-rwxr-xr-x | test/bbackupd/testfiles/extcheck1.pl.in | 5 | ||||
-rwxr-xr-x | test/bbackupd/testfiles/extcheck2.pl.in | 5 |
2 files changed, 8 insertions, 2 deletions
diff --git a/test/bbackupd/testfiles/extcheck1.pl.in b/test/bbackupd/testfiles/extcheck1.pl.in index 5b70c677..c80ddc66 100755 --- a/test/bbackupd/testfiles/extcheck1.pl.in +++ b/test/bbackupd/testfiles/extcheck1.pl.in @@ -1,9 +1,12 @@ #!@PERL@ use strict; +use File::Spec; + my $flags = $ARGV[0] or ""; +my $bbackupquery = File::Spec->catfile('..', '..', 'bin', 'bbackupquery', 'bbackupquery'); -unless(open IN,"../../bin/bbackupquery/bbackupquery -Wwarning " . +unless(open IN, "$bbackupquery -Wwarning " . "-c testfiles/bbackupd.conf " . "-l testfiles/query4.log " . "\"compare -ac$flags\" quit 2>&1 |") diff --git a/test/bbackupd/testfiles/extcheck2.pl.in b/test/bbackupd/testfiles/extcheck2.pl.in index 3671ad93..02c258f8 100755 --- a/test/bbackupd/testfiles/extcheck2.pl.in +++ b/test/bbackupd/testfiles/extcheck2.pl.in @@ -1,9 +1,12 @@ #!@PERL@ use strict; +use File::Spec; + my $flags = $ARGV[0] or ""; +my $bbackupquery = File::Spec->catfile('..', '..', 'bin', 'bbackupquery', 'bbackupquery'); -unless(open IN,"../../bin/bbackupquery/bbackupquery -Wwarning " . +unless(open IN, "$bbackupquery -Wwarning " . "-c testfiles/bbackupd.conf " . "-l testfiles/query4.log " . "\"compare -ac$flags\" quit 2>&1 |") |