test tweaks and a bugfix

[dbsrgits/DBIx-Class.git] / t / 02-Film.t

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