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

For consistency allow BEGIN for the SQL commands

Browse Source
This commit is contained in:
Andrew Ruthven 2024-02-24 17:25:04 +13:00
parent 57ae239a75
commit 8c378387c8
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
testing/dav_test
View File

@ -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";
};