[gitmo/Moose.git] / t / 100_bugs / 012_DEMOLISH_eats_mini.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More no_plan => 1;
use Test::Exception;

BEGIN {
     use_ok('Moose');
     use_ok('Moose::Util::TypeConstraints');
}

{
    package Foo;
    use Moose;

    has 'bar' => (
        is       => 'ro',
        required => 1,
    );

    # Defining this causes the FIRST call to Baz->new w/o param to fail,
    # if no call to ANY Moose::Object->new was done before.
    sub DEMOLISH {
        my ( $self ) = @_;
    }
}

my $obj = eval { Foo->new; };
::like( $@, qr/is required/, "... Foo plain" );
::is( $obj, undef, "... the object is undef" );

1;
Commit	Line	Data
3a0c064a	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use Test::More no_plan => 1;
	7	use Test::Exception;
	8
	9	BEGIN {
	10	use_ok('Moose');
	11	use_ok('Moose::Util::TypeConstraints');
	12	}
	13
	14	{
	15	package Foo;
	16	use Moose;
	17
	18	has 'bar' => (
	19	is => 'ro',
	20	required => 1,
	21	);
	22
	23	# Defining this causes the FIRST call to Baz->new w/o param to fail,
	24	# if no call to ANY Moose::Object->new was done before.
	25	sub DEMOLISH {
	26	my ( $self ) = @_;
	27	}
	28	}
	29
	30	my $obj = eval { Foo->new; };
	31	::like( $@, qr/is required/, "... Foo plain" );
	32	::is( $obj, undef, "... the object is undef" );
	33
	34	1;
	35