X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FDBIx-Class.git;a=blobdiff_plain;f=t%2Fdiscard_changes_in_DESTROY.t;h=cefcda4381e22ed45aaf8a813600878cc1709e84;hp=946b0606a0ea36aed8c4a9ed4bbbed7dad8308d9;hb=f54428abf9cc7d7e5604745335694eaf558f6820;hpb=494b5561c3df99acd3b52a8ad320669b93b7f90e

diff --git a/t/discard_changes_in_DESTROY.t b/t/discard_changes_in_DESTROY.t
index 946b060..cefcda4 100644
--- a/t/discard_changes_in_DESTROY.t
+++ b/t/discard_changes_in_DESTROY.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 => 1;
-
 {
     my @warnings;
     local $SIG{__WARN__} = sub { push @warnings, @_; };
@@ -18,15 +14,17 @@ plan tests => 1;
         # Test that this doesn't cause infinite recursion.
         local *DBICTest::Artist::DESTROY;
         local *DBICTest::Artist::DESTROY = sub { $_[0]->discard_changes };
-        
+
         my $artist = $schema->resultset("Artist")->create( { 
             artistid    => 10,
             name        => "artist number 10",
         });
-        
+
         $artist->name("Wibble");
-        
+
         print "# About to call DESTROY\n";
     }
     is_deeply \@warnings, [];
-}
\ No newline at end of file
+}
+
+done_testing;