X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fdelete%2Fm2m.t;h=7a1628d767447910e9a776482cc80ba31f2c0492;hb=81b29c8d4a021dd3288ab68117198e5255f9d760;hp=de4d3fd39dd420c54255034f192877abd5c003fa;hpb=f54428abf9cc7d7e5604745335694eaf558f6820;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/delete/m2m.t b/t/delete/m2m.t
index de4d3fd..7a1628d 100644
--- a/t/delete/m2m.t
+++ b/t/delete/m2m.t
@@ -9,7 +9,8 @@ my $schema = DBICTest->init_schema();
 
 my $cd = $schema->resultset("CD")->find(2);
 ok $cd->liner_notes;
-ok keys %{$cd->{_relationship_data}}, "_relationship_data populated";
+
+ok scalar(keys %{$cd->{_relationship_data}}), "_relationship_data populated";
 
 $cd->discard_changes;
 ok $cd->liner_notes, 'relationships still valid after discarding changes';