use strict;
use warnings;
-use Test::More tests => 3;
+use Test::More;
use Test::Exception;
-BEGIN {
- use_ok('Moose');
-}
=pod
'Non-ref provided to immutable constructor gives useful error message';
throws_ok { Foo->new(\$scalar) } qr/\QSingle parameters to new() must be a HASH ref/,
'Scalar ref provided to immutable constructor gives useful error message';
+throws_ok { Foo->new(undef) } qr/\QSingle parameters to new() must be a HASH ref/,
+ 'undef provided to immutable constructor gives useful error message';
+done_testing;