Make sure the taint test does some DB-level ops

[dbsrgits/DBIx-Class.git] / t / discard_changes_in_DESTROY.t

diff --git a/t/discard_changes_in_DESTROY.t b/t/discard_changes_in_DESTROY.t
index 950d9bd..736664d 100644 (file)
--- a/t/discard_changes_in_DESTROY.t
+++ b/t/discard_changes_in_DESTROY.t
@@ -1,29 +1,30 @@
-#!/usr/bin/perl -w
-
 use strict;
-use Test::More;
+use warnings;
 
-BEGIN {
-  eval "use DBIx::Class::CDBICompat;";
-  plan $@ ? (skip_all => "Class::Trigger and DBIx::ContextualFetch required: $@")
-          : (tests=> 1);
-}
+use Test::More;
+use lib qw(t/lib);
+use DBICTest;
 
-INIT {
-    use lib 't/testlib';
-    use Film;
-}
+my $schema = DBICTest->init_schema();
 
 {
     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 };
-        
-        my $film = Film->insert({ Title => "Eegah!" });
-        $film->director("Arch Hall Sr.");
+        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;