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
  17 run_tests($schema);