8 my ( $dsn, $user, $pass ) =
9 @ENV{ map {"DBICTEST_PG_${_}"} qw/DSN USER PASS/ };
11 plan skip_all => 'Set $ENV{DBICTEST_PG_DSN}, _USER and _PASS to run this test'
12 . ' (note: creates and tables!)'
13 unless ( $dsn && $user );
15 my $schema = DBSchema->get_test_schema( $dsn, $user, $pass, {
16 on_connect_do => [ 'SET client_min_messages=WARNING' ],