diff options
Diffstat (limited to 't/38_empty_statement.t')
-rw-r--r-- | t/38_empty_statement.t | 39 |
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 $@; |