+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
+
use strict;
+use warnings;
+
use Test::More;
-use Data::Dumper;
+use DBIx::Class::_Util 'dump_value';
-INIT {
- use lib 't/cdbi/testlib';
- use Film;
- use Director;
-}
+use lib 't/cdbi/testlib';
+use Film;
+use Director;
{ # Cascade on delete
Director->has_many(nasties => 'Film');
is $dir->nasties, 1, "We have one nasty";
ok $dir->delete;
- local $Data::Dumper::Terse = 1;
- ok +Film->retrieve("Alligator"), 'has_many with ' . Dumper ($args);;
+ ok +Film->retrieve("Alligator"), 'has_many with ' . dump_value $args;
$kk->delete;
}