From: Matt S Trout <mst@shadowcat.co.uk>
Date: Mon, 8 Aug 2005 23:28:16 +0000 (+0000)
Subject: Added Numa's count_all, removed warns from mysql and pg tests
X-Git-Tag: v0.03001~49
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cba994a1067fd7f8a1b89810b78d3034ceb606ab;p=dbsrgits%2FDBIx-Class.git

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
--- 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
--- 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
--- 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);