use strict; use warnings; use lib 't/lib'; use DBSchema; use RunTests; use Test::More; my ( $dsn, $user, $pass ) = @ENV{ map {"DBICTEST_PG_${_}"} qw/DSN USER PASS/ }; plan skip_all => 'Set $ENV{DBICTEST_PG_DSN}, _USER and _PASS to run this test' . ' (note: creates and tables!)' unless ( $dsn && $user ); my $schema = DBSchema->get_test_schema( $dsn, $user, $pass, { on_connect_do => [ 'SET client_min_messages=WARNING' ], } ); run_tests($schema);