[gitmo/MooseX-Singleton.git] / t / 006-cooperative.t

use strict;
use warnings;

use Test::More;

BEGIN {
    eval "require MooseX::StrictConstructor; use Test::Exception; 1;";
    plan skip_all => 'This test requires MooseX::StrictConstructor and Test::Exception'
        if $@;
}

plan 'no_plan';

{
    package MySingleton;
    use Moose;
    use MooseX::Singleton;
    use MooseX::StrictConstructor;

    has 'attrib' =>
        is      => 'rw';
}

throws_ok {
    MySingleton->new( bad_name => 42 )
}
qr/Found unknown attribute/,
'singleton class also has a strict constructor';
Commit	Line	Data
8eec3c69	1	use strict;
	2	use warnings;
	3
	4	use Test::More;
	5
	6	BEGIN {
	7	eval "require MooseX::StrictConstructor; use Test::Exception; 1;";
	8	plan skip_all => 'This test requires MooseX::StrictConstructor and Test::Exception'
	9	if $@;
	10	}
	11
	12	plan 'no_plan';
	13
	14	{
	15	package MySingleton;
	16	use Moose;
	17	use MooseX::Singleton;
	18	use MooseX::StrictConstructor;
	19
	20	has 'attrib' =>
	21	is => 'rw';
	22	}
	23
	24	throws_ok {
	25	MySingleton->new( bad_name => 42 )
	26	}
	27	qr/Found unknown attribute/,
	28	'singleton class also has a strict constructor';