From: Matt S Trout <mst@shadowcat.co.uk>
Date: Tue, 19 Jul 2005 17:25:23 +0000 (+0000)
Subject: test tweaks and a bugfix
X-Git-Tag: v0.03001~139
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=33ec7be05c9bb95e99cb8bc45b811c2f3082445e;p=dbsrgits%2FDBIx-Class.git

test tweaks and a bugfix
---

diff --git a/lib/DBIx/Class/CDBICompat/Convenience.pm b/lib/DBIx/Class/CDBICompat/Convenience.pm
index 63cfa67..b82e4a0 100644
--- a/lib/DBIx/Class/CDBICompat/Convenience.pm
+++ b/lib/DBIx/Class/CDBICompat/Convenience.pm
@@ -29,7 +29,7 @@ sub id {
 
 sub retrieve_all {
   my ($class) = @_;
-  return $class->search( { 1 => 1 } );
+  return $class->retrieve_from_sql( '1' );
 }
 
 1;
diff --git a/t/02-Film.t b/t/02-Film.t
index 3207b4a..97505ba 100644
--- a/t/02-Film.t
+++ b/t/02-Film.t
@@ -77,7 +77,7 @@ $gone->update;
 
 {
 	my @films = eval { Film->retrieve_all };
-	is(@films, 2, "We have 2 films in total");
+	cmp_ok(@films, '==', 2, "We have 2 films in total");
 }
 
 my $gone_copy = Film->retrieve('Gone With The Wind');