diff options
Diffstat (limited to 't/46_mod_perl.t')
-rw-r--r-- | t/46_mod_perl.t | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/t/46_mod_perl.t b/t/46_mod_perl.t new file mode 100644 index 0000000..6492e1b --- /dev/null +++ b/t/46_mod_perl.t @@ -0,0 +1,28 @@ +#!/usr/bin/perl + +use strict; +BEGIN { + $| = 1; + $^W = 1; +} + +use t::lib::Test; +use Test::More; +BEGIN { + eval {require APR::Table; 1}; + if ($@) { + plan skip_all => 'requires APR::Table'; + } + else { + plan tests => 2; + } +} + +my $dbh = connect_ok( + AutoCommit => 1, + RaiseError => 1, +); + +eval { $dbh->do('SELECT 1') }; +ok !$@, "no errors"; +diag $@ if $@; |