From 341707b045c8032632488b029e23fad8512ae989 Mon Sep 17 00:00:00 2001
From: Andrew Ruthven <andrew@etc.gen.nz>
Date: Mon, 22 Apr 2024 01:28:58 +1200
Subject: [PATCH] Allow multiple curl requests per test file

This could still do with some more work to allow clearing previous settings,
it does now allow repeated URL lines per test file.
---
 testing/dav_test | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/testing/dav_test b/testing/dav_test
index aaf7f00d..abc99899 100755
--- a/testing/dav_test
+++ b/testing/dav_test
@@ -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 = $_;