Initial

[chaz/p5-DBIx-Class-ResultSet-RecursiveUpdate] / t / pg.t

diff --git a/t/pg.t b/t/pg.t
new file mode 100644 (file)
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 );
+