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

diff --git a/t/delete/m2m.t b/t/delete/m2m.t
index 5613721..de4d3fd 100644
--- a/t/delete/m2m.t
+++ b/t/delete/m2m.t
@@ -1,7 +1,5 @@
-#!/usr/bin/perl -w
-
 use strict;
-use warnings;  
+use warnings;
 
 use Test::More;
 use lib qw(t/lib);
@@ -9,8 +7,6 @@ use DBICTest;
 
 my $schema = DBICTest->init_schema();
 
-plan tests => 5;
-
 my $cd = $schema->resultset("CD")->find(2);
 ok $cd->liner_notes;
 ok keys %{$cd->{_relationship_data}}, "_relationship_data populated";
@@ -20,4 +16,6 @@ ok $cd->liner_notes, 'relationships still valid after discarding changes';
 
 ok $cd->liner_notes->delete;
 $cd->discard_changes;
-ok !$cd->liner_notes, 'discard_changes resets relationship';
\ No newline at end of file
+ok !$cd->liner_notes, 'discard_changes resets relationship';
+
+done_testing;