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

#!/usr/bin/perl -w

use strict;
use Test::More;

BEGIN {
  eval "use DBIx::Class::CDBICompat;";
  plan $@ ? (skip_all => "Class::Trigger and DBIx::ContextualFetch required: $@")
          : (tests=> 1);
}

INIT {
    use lib 't/testlib';
    use Film;
}

{
    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.");
    }
    is_deeply \@warnings, [];
}
Commit	Line	Data
e60dc79f	1	#!/usr/bin/perl -w
	2
	3	use strict;
	4	use Test::More;
	5
	6	BEGIN {
	7	eval "use DBIx::Class::CDBICompat;";
	8	plan $@ ? (skip_all => "Class::Trigger and DBIx::ContextualFetch required: $@")
	9	: (tests=> 1);
	10	}
	11
	12	INIT {
	13	use lib 't/testlib';
	14	use Film;
	15	}
	16
	17	{
	18	my @warnings;
	19	local $SIG{__WARN__} = sub { push @warnings, @_; };
	20	{
	21	# Test that this doesn't cause infinite recursion.
	22	local *Film::DESTROY;
	23	local *Film::DESTROY = sub { $_[0]->discard_changes };
	24
	25	my $film = Film->insert({ Title => "Eegah!" });
	26	$film->director("Arch Hall Sr.");
	27	}
	28	is_deeply \@warnings, [];
	29	}