X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F18-extra.t;h=7af4518adf18ff26b54dd0d8bbcc980dfd1a96d0;hb=3d4debec185c87acba106e27e0b4ab6ded4bc041;hp=75528d57f2e407292a2c8917d1cd7f65c22e0977;hpb=767afa139698fa1642c909ad2e9e8fa9f5de687c;p=dbsrgits%2FDBIx-Class-Fixtures.git diff --git a/t/18-extra.t b/t/18-extra.t index 75528d5..7af4518 100644 --- a/t/18-extra.t +++ b/t/18-extra.t @@ -18,7 +18,8 @@ open(my $fh, '<', io->catfile(qw't 18-extra.t')->name) || ok my $row = $schema ->resultset('Photo') ->create({ - photographer=>'john', + album=> {name=>'masterpiece'}, + photographer=> {name=>'john'}, file=>$fh, }); @@ -42,6 +43,8 @@ ok my $key = $schema->resultset('Photo')->first->file; ok -e $key, 'File Created'; ok $schema->resultset('Photo')->delete; +ok $schema->resultset('Photographer')->delete; +ok $schema->resultset('Album')->delete; ok ! -e $key, 'File Deleted';