nik/davical
1
0
Fork 0
mirror of https://gitlab.com/davical-project/davical.git synced 2026-05-27 02:54:27 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Allow for replacing the regression.host in headers as well.

Browse Source
This commit is contained in:
Andrew McMillan 2009-11-04 00:19:24 +13:00
parent d61eee363e
commit 6e16011d00
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
testing/dav_test
View File

@ -162,7 +162,10 @@ while( <TEST> ) {
};
$line =~ /^\s*HEADER\s*=\s*(\S.*)$/ && do {
push @arguments, "--header", $1;
my $arg = $1;
$arg =~ s{regression.host}{$webhost};
$arg =~ s{alternate.host}{$althost};
push @arguments, "--header", $arg;
};
$line =~ /^\s*URL\s*=\s*(\S.*)$/ && do {
@ -213,6 +216,7 @@ while( <RESULTS> ) {
if ( defined(@{$queries}) && @{$queries} ) {
opendb() unless defined($dbh);
print "\n";
print STDERR "Processing special queries\n" if ( $debug );
foreach $sql_statement ( @$queries ) {
# run SQL statement and dump results, into array of hashes