Imported from /srv/lorry/lorry-area/perl-dbd-sqlite-tarball/DBD-SQLite-1.38_01.tar.gz.HEADDBD-SQLite-1.38_01masterbaserock/morph

1 files changed, 39 insertions, 0 deletions

diff --git a/t/38_empty_statement.t b/t/38_empty_statement.t
new file mode 100644
index 0000000..a0a297c
--- /dev/null
+++ b/t/38_empty_statement.t
@@ -0,0 +1,39 @@
+#!/usr/bin/perl
+
+use strict;
+BEGIN {
+	$|  = 1;
+	$^W = 1;
+}
+
+use t::lib::Test qw/connect_ok/;
+use Test::More;
+use Test::NoWarnings;
+
+plan tests => 8;
+
+my $dbh = connect_ok( RaiseError => 1 );
+
+eval { $dbh->do("\n") };
+ok !$@, "empty statement does not spit a warning";
+diag $@ if $@;
+
+eval { $dbh->do("     ") };
+ok !$@, "empty statement does not spit a warning";
+diag $@ if $@;
+
+eval { $dbh->do("") };
+ok !$@, "empty statement does not spit a warning";
+diag $@ if $@;
+
+eval { $dbh->do("/* everything in a comment */") };
+ok !$@, "empty statement does not spit a warning";
+diag $@ if $@;
+
+eval { $dbh->do("-- everything in a comment") };
+ok !$@, "empty statement does not spit a warning";
+diag $@ if $@;
+
+eval { $dbh->do(undef) };
+ok !$@, "undef statement does not spit a warning, and does not die anyway";
+diag $@ if $@;