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 (file)
--- 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 (file)
--- 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');