X-Git-Url: https://git.dogcows.com/gitweb?a=blobdiff_plain;f=t%2Fpg.t;fp=t%2Fpg.t;h=8765d41f63effa53d9910e6d5ff0828fd2a210ce;hb=424363ed169eae916480670bea2363322285855a;hp=0000000000000000000000000000000000000000;hpb=31f0eb77c2ea2257ef82cf097f626a331d66c46a;p=chaz%2Fp5-DBIx-Class-ResultSet-RecursiveUpdate

diff --git a/t/pg.t b/t/pg.t
new file mode 100644
index 0000000..8765d41
--- /dev/null
+++ b/t/pg.t
@@ -0,0 +1,18 @@
+# -*- perl -*-
+
+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);
+
+plan tests => 15;
+
+my $schema = DBSchema::get_test_schema( $dsn, $user, $pass );
+
+run_tests( $schema );
+