simcop2387/DBD-SQLite-SQLcipher
1
0
Fork 0
mirror of https://github.com/DBD-SQLite/DBD-SQLite synced 2025-06-07 14:19:10 -04:00
Code Issues Releases Wiki Activity

mod_perl test suggested by siracusa

Browse source
This commit is contained in:
Kenichi Ishigaki 2011-10-19 13:54:53 +00:00
parent 2c33a2e1bc
commit 68db35b8b4
1 changed files with 28 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
t/46_mod_perl.t Normal file
View file

@ -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 $@;