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'; |