First of a two-parter :)

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

diff --git a/t/02-Film.t b/t/02-Film.t
index 3207b4a..bec54a2 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');
@@ -238,6 +238,7 @@ is($btaste->Director, $orig_director, 'discard_changes()');
                $btaste3->NumExplodingSheep(13);
        }
        is @warnings, 1, "DESTROY without update warns";
+print join("\n", @warnings);
        Film->autoupdate(0);
 }