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

Allow pattern replacement of output fields to be specified.

Browse Source
This commit is contained in:
Andrew McMillan 2006-12-17 22:00:40 +13:00
parent 72788845d2
commit 23965cdc0d
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
testing/dav_test
View File

@ -62,6 +62,7 @@ my $sql_variable = "";
my $sql_statement = "";
my $sql_values = {};
my $queries = ();
my $replacements = ();
open( TEST, '<', "tests/$suite/$test.test" ) or die "Can't open 'tests/$suite/$test.test'";
while( <TEST> ) {
@ -125,6 +126,13 @@ while( <TEST> ) {
$state = "SQL";
};
$line =~ /^REPLACE\s*=\s*(\S)(.*)$/ && do {
my $separator = $1;
$2 =~ /^([^$separator]*)$separator([^$separator]*)$separator$/ && do {
push @$replacements, { 'pattern' => $1, 'replacement' => $2 };
};
};
$line =~ /^QUERY\s*$/ && do {
$sql_statement = "";
$state = "QUERY";
@ -180,7 +188,11 @@ print STDERR join " ", "curl", @arguments, "\n" if ( $debug );
open RESULTS, "-|", "curl", @arguments;
while( <RESULTS> ) {
print;
my $line = $_;
foreach my $replacement ( @$replacements ) {
$line =~ s/$replacement->{'pattern'}/$replacement->{'replacement'}/;
}
print $line;
}
if ( defined(@{$queries}) && @{$queries} ) {