Dogcows Code - chaz/p5-DBIx-Class-ResultSet-RecursiveUpdate/blob - t/pg.t

   1 use strict;
   2 use warnings;
   3 use lib 't/lib';
   4 use DBSchema;
   5 use RunTests;
   6 use Test::More;
   7
   8 my ( $dsn, $user, $pass ) =
   9     @ENV{ map {"DBICTEST_PG_${_}"} qw/DSN USER PASS/ };
  10
  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 );
  14
  15 my $schema = DBSchema->get_test_schema( $dsn, $user, $pass, {
  16     on_connect_do  => [ 'SET client_min_messages=WARNING' ],
  17 } );
  18 run_tests($schema);