-#!/usr/bin/perl
-
use strict;
use warnings;
use Test::More;
},
);
-
-plan tests => (@data * 5 + 2);
-
# test insert() and values() for reentrancy
my($insert_hash, $insert_array, $numfields);
my $a_sql = SQL::Abstract->new;
{
my $sql = SQL::Abstract->new;
- my $data = {
+ my $data = {
event => 'rapture',
stuff => 'fluff',
time => \ 'now()',
'values() output matches that of initial bind'
) || diag "Corresponding SQL statement: $stmt";
}
+
+done_testing;