#!perl
## Simply test that we can load the DBI and DBD::Pg modules,
## and that the latter gives a good version
use 5.006;
use strict;
use warnings;
use Test::More tests => 3;
select(($|=1,select(STDERR),$|=1)[1]);
BEGIN {
use_ok ('DBI') or BAIL_OUT 'Cannot continue without DBI';
## If we cannot load DBD::Pg, output some compiler information for debugging:
if (! use_ok ('DBD::Pg')) {
my $file = 'Makefile';
if (! -e $file) {
$file = '../Makefile';
}
my $fh;
if (open $fh, '<', $file) {
{ local $/; $_ = <$fh>; }
close $fh or die qq{Could not close file "$file" $!\n};
for my $keyword (qw/ CCFLAGS INC LIBS /) {
if (/^#\s+$keyword => (.+)/m) {
diag "$keyword: $1";
}
}
}
BAIL_OUT 'Cannot continue without DBD::Pg';
}
}
use DBD::Pg;
like ($DBD::Pg::VERSION, qr/^v?\d+\.\d+\.\d+(?:_\d+)?$/, qq{Found DBD::Pg::VERSION as "$DBD::Pg::VERSION"});