From 8c378387c858d0f9ca247f4fd81df09be0e413b8 Mon Sep 17 00:00:00 2001
From: Andrew Ruthven <andrew@etc.gen.nz>
Date: Sat, 24 Feb 2024 17:25:04 +1300
Subject: [PATCH] For consistency allow BEGIN for the SQL commands

---
 testing/dav_test | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/testing/dav_test b/testing/dav_test
index 128b678e..fc6cd48a 100755
--- a/testing/dav_test
+++ b/testing/dav_test
@@ -203,13 +203,13 @@ while( <TEST> ) {
     $state = "PERL";
   };
 
-  $line =~ /^GETSQL\s*=\s*(\S.*)$/ && do {
+  $line =~ /^(?:BEGIN)?GETSQL\s*=\s*(\S.*)$/ && do {
     $sql_variable = $1;
     $sql_statement = "";
     $state = "SQL";
   };
 
-  $line =~ /^DOSQL\s*$/ && do {
+  $line =~ /^(?:BEGIN)?DOSQL\s*$/ && do {
     $sql_statement = "";
     $state = "DOSQL";
   };
@@ -221,7 +221,7 @@ while( <TEST> ) {
     };
   };
 
-  $line =~ /^QUERY\s*$/ && do {
+  $line =~ /^(?:BEGIN)?QUERY\s*$/ && do {
     $sql_statement = "";
     $state = "QUERY";
   };