use Test::More;
-BEGIN {
- eval "require MooseX::StrictConstructor; use Test::Exception;";
- plan skip_all =>
- 'This test requires MooseX::StrictConstructor and Test::Exception'
- if $@;
-}
+use Test::Requires {
+ 'MooseX::StrictConstructor' => 0.09,
+ 'Test::Fatal' => 0.001,
+};
{
package MySingleton;
has 'attrib' => ( is => 'rw' );
}
-throws_ok {
+like( exception {
MySingleton->new( bad_name => 42 );
-}
-qr/Found unknown attribute/, 'singleton class also has a strict constructor';
+},
+qr/Found unknown attribute/, 'singleton class also has a strict constructor');
done_testing;