The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
#!perl

use strict;
use warnings;

use lib 't/lib';
use Test::More;
use DBIETester;

my ($dsn, $user, $pass) = @ENV{map { "DBIETEST_PG_${_}" } qw/DSN USER PASS/};

plan skip_all => 'Set $ENV{DBIETEST_PG_DSN}, _USER and _PASS to run this test'
   unless $dsn && $user;

DBIETester->new(
   dsn      => $dsn,
   username => $user,
   password => $pass,
   driver   => 'Pg'
)->run_tests;