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

Allow multiple curl requests per test file

Browse Source 
This could still do with some more work to allow clearing previous settings,
it does now allow repeated URL lines per test file.
This commit is contained in:
Andrew Ruthven 2024-04-22 01:28:58 +12:00
parent 1077714a83
commit 341707b045
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
testing/dav_test
View File

@ -377,24 +377,25 @@ exit(0);
sub run_curl {
my $url = shift;
push @arguments, @auth;
my @args = @arguments;
push @args, @auth;
if ( -f $datafile ) {
push @arguments, "--data-binary", "\@$datafile";
push @args, "--data-binary", "\@$datafile";
}
elsif ( defined($data_binary) ) {
push @arguments, "--data-binary", $data_binary;
push @args, "--data-binary", $data_binary;
}
else {
undef($datafile);
}
push @arguments, $url;
push @args, $url;
warn join " ", "curl", @arguments, "\n"
warn join " ", "curl", @args, "\n"
if $debug;
open RESULTS, "-|", "curl", @arguments;
open RESULTS, "-|", "curl", @args;
while ( <RESULTS> ) {
my $line = $_;