t/46_mod_perl.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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 $@;