X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fcdbi-t%2F23-cascade.t;h=af8689b958416445c9329ab281ead5bacae3b8dd;hb=dec1bfe02a3edde0ad981a663811926f29825777;hp=50a1647fb32c584e2d3922307dfab784206d6f14;hpb=0c9b6eced050ade31a3398b199c59a84681896e7;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/cdbi-t/23-cascade.t b/t/cdbi-t/23-cascade.t
index 50a1647..af8689b 100644
--- a/t/cdbi-t/23-cascade.t
+++ b/t/cdbi-t/23-cascade.t
@@ -1,5 +1,6 @@
 use strict;
 use Test::More;
+use Data::Dumper;
 
 BEGIN {
   eval "use DBIx::Class::CDBICompat;";
@@ -48,7 +49,8 @@ for my $args ({ no_cascade_delete => 1 }, { cascade => "None" }) {
     is $dir->nasties, 1, "We have one nasty";
 
     ok $dir->delete;
-    ok +Film->retrieve("Alligator"), "has_many with @{[ keys %$args ]} => @{[ values %$args ]}";
+    local $Data::Dumper::Terse = 1;
+    ok +Film->retrieve("Alligator"), 'has_many with ' . Dumper ($args);;
     $kk->delete;
 }