Commit | Line | Data |
---|---|---|
8eec3c69 | 1 | use strict; |
2 | use warnings; | |
3 | ||
4 | use Test::More; | |
5 | ||
abf9a01f | 6 | use Test::Requires { |
7 | 'MooseX::StrictConstructor' => 0.01, # skip all if not installed | |
8 | 'Test::Exception' => 0.01, | |
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 | } |
19 | ||
20 | throws_ok { | |
4c256923 | 21 | MySingleton->new( bad_name => 42 ); |
8eec3c69 | 22 | } |
4c256923 | 23 | qr/Found unknown attribute/, 'singleton class also has a strict constructor'; |
e01c7277 | 24 | |
25 | done_testing; |