nik/davical
1
0
Fork 0
mirror of https://gitlab.com/davical-project/davical.git synced 2026-08-21 17:06:22 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Support DOSQL to to arbitrary SQL before actual regression test.

Browse Source
This commit is contained in:
Andrew McMillan 2011-10-20 12:19:43 +13:00
parent fbd08e42c6
commit 7f26b16da8
1 changed files with 29 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
testing/dav_test
View File

@ -85,7 +85,10 @@ while( <TEST> ) {
if ( $state eq "SQL" ) {
get_sql_value( $sql_variable, $sql_values, $sql_statement );
}
elsif ( $state eq "SQL" || $state eq "QUERY" ) {
elsif ( $state eq "DOSQL" ) {
do_sql( $sql_statement );
}
elsif ( $state eq "QUERY" ) {
push @$queries, $sql_statement;
}
$state = "";
@ -93,7 +96,7 @@ while( <TEST> ) {
elsif ( $state eq "DATA" ) {
$data_binary .= $line;
}
elsif ( $state eq "SQL" || $state eq "QUERY" ) {
elsif ( $state eq "SQL" || $state eq "QUERY" || $state eq "DOSQL" ) {
$sql_statement .= $line;
}
next;
@ -150,6 +153,11 @@ while( <TEST> ) {
$state = "SQL";
};
$line =~ /^DOSQL\s*$/ && do {
$sql_statement = "";
$state = "DOSQL";
};
$line =~ /^REPLACE\s*=\s*(\S)(.*)$/ && do {
my $separator = $1;
$2 =~ /^([^$separator]*)$separator([^$separator]*)$separator$/ && do {
@ -270,6 +278,24 @@ if ( defined(@{$queries}) && @{$queries} ) {
exit(0);
=item do_sql( $sql_statement )
Queries the database using the specified statement and
ignores the result.
=cut
sub do_sql {
my $sql = shift;
opendb() unless defined($dbh);
$dbh->do($sql);
if ( $dbh->err ) {
print $dbh->errstr, "\n";
return;
}
print "SQL executed successfully.\n";
print $sql, "\n";
}
=item get_sql_value( $sql_variable, $sql_values, $sql_statement )
Queries the database using the specified statement and puts
the first column of the first row returned into the
@ -298,7 +324,7 @@ with DBD::Pg.
=cut
sub opendb {
$dsn = "dbi:Pg:dbname=$dsn";
$dbh = DBI->connect($dsn, $dbuser, $dbpass, { AutoCommit => 0 } ) or die "Can't connect to database $dsn";
$dbh = DBI->connect($dsn, $dbuser, $dbpass, { AutoCommit => 1 } ) or die "Can't connect to database $dsn";
}