X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fdiscard_changes_in_DESTROY.t;h=946b0606a0ea36aed8c4a9ed4bbbed7dad8308d9;hb=39d1fe59887f5a9e8258321fbccbcd2b4adb5b78;hp=950d9bdb048cf56c92b3d199be59b4ba790eb864;hpb=1b32d56ec274e0f7054381c5b630b73f2ce3a699;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/discard_changes_in_DESTROY.t b/t/discard_changes_in_DESTROY.t
index 950d9bd..946b060 100644
--- a/t/discard_changes_in_DESTROY.t
+++ b/t/discard_changes_in_DESTROY.t
@@ -1,29 +1,32 @@
 #!/usr/bin/perl -w
 
 use strict;
+use warnings;  
+
 use Test::More;
+use lib qw(t/lib);
+use DBICTest;
 
-BEGIN {
-  eval "use DBIx::Class::CDBICompat;";
-  plan $@ ? (skip_all => "Class::Trigger and DBIx::ContextualFetch required: $@")
-          : (tests=> 1);
-}
+my $schema = DBICTest->init_schema();
 
-INIT {
-    use lib 't/testlib';
-    use Film;
-}
+plan tests => 1;
 
 {
     my @warnings;
     local $SIG{__WARN__} = sub { push @warnings, @_; };
     {
         # Test that this doesn't cause infinite recursion.
-        local *Film::DESTROY;
-        local *Film::DESTROY = sub { $_[0]->discard_changes };
+        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");
         
-        my $film = Film->insert({ Title => "Eegah!" });
-        $film->director("Arch Hall Sr.");
+        print "# About to call DESTROY\n";
     }
     is_deeply \@warnings, [];
 }
\ No newline at end of file