[Bast-commits] r5370 - DBIx-Class/0.08/trunk/t

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-01-29 09:41:53 +0000 (Thu, 29 Jan 2009)
New Revision: 5370

Modified:
   DBIx-Class/0.08/trunk/t/72pg.t
Log:
A pass is not strictly necessary for a test connection

Modified: DBIx-Class/0.08/trunk/t/72pg.t
===================================================================
--- DBIx-Class/0.08/trunk/t/72pg.t	2009-01-29 09:39:36 UTC (rev 5369)
+++ DBIx-Class/0.08/trunk/t/72pg.t	2009-01-29 09:41:53 UTC (rev 5370)
@@ -38,13 +38,11 @@
 
 my ($dsn, $user, $pass) = @ENV{map { "DBICTEST_PG_${_}" } qw/DSN USER PASS/};
 
-#warn "$dsn $user $pass";
-
 plan skip_all => 'Set $ENV{DBICTEST_PG_DSN}, _USER and _PASS to run this test '.
   '(note: This test drops and creates tables called \'artist\', \'casecheck\', \'array_test\' and \'sequence_test\''.
   ' as well as following sequences: \'pkid1_seq\', \'pkid2_seq\' and \'nonpkid_seq\''.
   ' as well as following schemas: \'testschema\'!)'
-    unless ($dsn && $user && $pass);
+    unless ($dsn && $user);
 
 
 plan tests => 37;