X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fordered%2Fcascade_delete.t;h=b6633c70c619acfad3cf574c5c0a299d36a194c9;hb=refs%2Fheads%2Fcurrent%2Fdq;hp=742df31c240646658c0e457c498269ef67b141d7;hpb=362d4549472688ac04e6370ef4fc4d9fa5dfc083;p=dbsrgits%2FDBIx-Class.git diff --git a/t/ordered/cascade_delete.t b/t/ordered/cascade_delete.t index 742df31..b6633c7 100644 --- a/t/ordered/cascade_delete.t +++ b/t/ordered/cascade_delete.t @@ -1,17 +1,13 @@ use strict; -use warnings; +use warnings; use Test::More; use Test::Exception; use lib qw(t/lib); use DBICTest; -use POSIX qw(ceil); - my $schema = DBICTest->init_schema(); -plan tests => 1; - { my $artist = $schema->resultset ('Artist')->search ({}, { rows => 1})->single; # braindead sqlite my $cd = $schema->resultset ('CD')->create ({ @@ -28,4 +24,4 @@ plan tests => 1; lives_ok (sub { $cd->delete}, "Cascade delete on ordered has_many doesn't bomb"); } -1; +done_testing;