X-Git-Url: https://git.dogcows.com/gitweb?p=chaz%2Fp5-DBIx-Class-ResultSet-RecursiveUpdate;a=blobdiff_plain;f=t%2Fpg.t;h=8afc89191d39fe45651bdc2e693e608233814943;hp=58ce12494c7b694827751545f4cd04d41980d7ff;hb=9dc8938b884bc17212e662c80e43750325287938;hpb=264a28fa4c2fdab1244cdba5c9e606ce8c411c0a

diff --git a/t/pg.t b/t/pg.t
index 58ce124..8afc891 100644
--- a/t/pg.t
+++ b/t/pg.t
@@ -1,18 +1,17 @@
-# -*- perl -*-
-
+use strict;
+use warnings;
 use lib 't/lib';
 use DBSchema;
 use RunTests;
 use Test::More;
 
-my ($dsn, $user, $pass) = @ENV{map { "DBICTEST_PG_${_}" } qw/DSN USER PASS/};
+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 => 19;
-
-my $schema = DBSchema::get_test_schema( $dsn, $user, $pass );
+    . ' (note: creates and tables!)'
+    unless ( $dsn && $user );
 
-run_tests( $schema );
+my $schema = DBSchema->get_test_schema( $dsn, $user, $pass );
 
+run_tests($schema);