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
29
30
31
32
33
34
35
36
37
38
39
40
|
#!perl
## Simply test that we can load the DBI and DBD::Pg modules,
## and that the latter gives a good version
use 5.008001;
use strict;
use warnings;
use lib 'blib/lib', 'blib/arch', 't';
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) { ## no critic (CompileTime)
{ local $/; $_ = <$fh>; }
close $fh or die qq{Could not close file "$file" $!\n}; ## no critic (CompileTime)
for my $keyword (qw/ CCFLAGS INC LIBS /) {
if (/^#\s+$keyword => (.+)/m) {
diag "$keyword: $1";
}
}
}
diag 'If the error mentions libpq.so, please see the troubleshooting section of the README file';
BAIL_OUT 'Cannot continue without DBD::Pg';
}
}
use DBD::Pg;
like ($DBD::Pg::VERSION, qr/^v?[0-9]+\.[0-9]+\.[0-9]+(?:_[0-9]+)?$/, qq{Found DBD::Pg::VERSION as "$DBD::Pg::VERSION"});
|
