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

   1 # -*- perl -*-
   2
   3 use lib 't/lib';
   4 use DBSchema;
   5 use RunTests;
   6 use Test::More;
   7
   8 my ($dsn, $user, $pass) = @ENV{map { "DBICTEST_PG_${_}" } qw/DSN USER PASS/};
   9
  10 plan skip_all => 'Set $ENV{DBICTEST_PG_DSN}, _USER and _PASS to run this test'
  11  . ' (note: creates and tables!)' unless ($dsn && $user);
  12
  13 my $schema = DBSchema::get_test_schema( $dsn, $user, $pass );
  14
  15 run_tests( $schema );
  16