view release on metacpan or  search on metacpan

t/postgis.t  view on Meta::CPAN

use HTTP::Request::Common;
use Geo::OGC::Service;
use XML::LibXML;
use XML::SemanticDiff;
use XML::LibXML::PrettyPrint;
use DBI;
BEGIN { use_ok('Geo::OGC::Service::WFS') };

# create a test database first

my $user = getlogin || getpwuid($<) || "Kilroy";
my $pass = $user;
my $test_db = 'wfstest';
my $dbh;    

sub setup_db {
    my $connect = "dbi:Pg:dbname=postgres";
    my %attr = (PrintError => 0, RaiseError => 1, AutoCommit => 1);
    $dbh = DBI->connect($connect, $user, $pass, \%attr);
    my ($e) = $dbh->selectrow_array("SELECT datname FROM pg_database WHERE datname='$test_db'");
    return "Database '$test_db' exists, skipping." if $e;