Added Numa's count_all, removed warns from mysql and pg tests

diff --git a/lib/DBIx/Class/CDBICompat/Retrieve.pm b/lib/DBIx/Class/CDBICompat/Retrieve.pm
index b7fca68..ef99720 100644 (file)
--- a/lib/DBIx/Class/CDBICompat/Retrieve.pm
+++ b/lib/DBIx/Class/CDBICompat/Retrieve.pm
@@ -7,4 +7,7 @@ sub retrieve          { shift->find(@_)            }
 sub retrieve_all      { shift->search_literal('1') }
 sub retrieve_from_sql { shift->search_literal(@_)  }
 
+sub count_all          { shift->count_literal('1')  }
+  # Contributed by Numa. No test for this though.
+
 1;

diff --git a/t/11mysql.t b/t/11mysql.t
index e1b2ee5..cd91dfb 100644 (file)
--- a/t/11mysql.t
+++ b/t/11mysql.t
@@ -5,7 +5,7 @@ use Test::More;
 
 my ($dsn, $user, $pass) = @ENV{map { "DBICTEST_MYSQL_${_}" } qw/DSN USER PASS/};
 
-warn "$dsn $user $pass";
+#warn "$dsn $user $pass";
 
 plan skip_all, 'Set $ENV{DBICTEST_MYSQL_DSN}, _USER and _PASS to run this test'
   unless ($dsn && $user);

diff --git a/t/12pg.t b/t/12pg.t
index e3d3469..7181015 100644 (file)
--- a/t/12pg.t
+++ b/t/12pg.t
@@ -5,7 +5,7 @@ use Test::More;
 
 my ($dsn, $user, $pass) = @ENV{map { "DBICTEST_PG_${_}" } qw/DSN USER PASS/};
 
-warn "$dsn $user $pass";
+#warn "$dsn $user $pass";
 
 plan skip_all, 'Set $ENV{DBICTEST_PG_DSN}, _USER and _PASS to run this test'
   unless ($dsn && $user);