1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
10 my $schema = DBICTest->init_schema();
14 local $SIG{__WARN__} = sub { push @warnings, @_; };
16 # Test that this doesn't cause infinite recursion.
17 local *DBICTest::Artist::DESTROY;
18 local *DBICTest::Artist::DESTROY = sub { $_[0]->discard_changes };
20 my $artist = $schema->resultset("Artist")->create( {
22 name => "artist number 10",
25 $artist->name("Wibble");
27 print "# About to call DESTROY\n";
29 is_deeply \@warnings, [];