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

use strict;
use warnings;

use Test::More;

use Test::Requires {
    'MooseX::StrictConstructor' => 0.16,
    'Test::Fatal' => 0.001,
};

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

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

like( exception {
    MySingleton->new( bad_name => 42 );
},
qr/Found unknown attribute/, 'singleton class also has a strict constructor');

done_testing;
Commit	Line	Data
8eec3c69	1	use strict;
	2	use warnings;
	3
	4	use Test::More;
	5
abf9a01f	6	use Test::Requires {
bd2e7320	7	'MooseX::StrictConstructor' => 0.16,
181569bb	8	'Test::Fatal' => 0.001,
abf9a01f	9	};
8eec3c69	10
8eec3c69	11	{
	12	package MySingleton;
	13	use Moose;
	14	use MooseX::Singleton;
	15	use MooseX::StrictConstructor;
	16
089ff853	17	has 'attrib' => ( is => 'rw' );
8eec3c69	18	}
8eec3c69	19
c1068a21	20	like( exception {
4c256923	21	MySingleton->new( bad_name => 42 );
c1068a21	22	},
c1068a21	23	qr/Found unknown attribute/, 'singleton class also has a strict constructor');
e01c7277	24
e01c7277	25	done_testing;