12 This tests to make sure that we provide the same error messages from
13 an immutable constructor as is provided by a non-immutable
22 has 'foo' => (is => 'rw', isa => 'Int');
24 Foo->meta->make_immutable(debug => 0);
28 like exception { Foo->new($scalar) }, qr/\QSingle parameters to new() must be a HASH ref/,
29 'Non-ref provided to immutable constructor gives useful error message';
30 like exception { Foo->new(\$scalar) }, qr/\QSingle parameters to new() must be a HASH ref/,
31 'Scalar ref provided to immutable constructor gives useful error message';
32 like exception { Foo->new(undef) }, qr/\QSingle parameters to new() must be a HASH ref/,
33 'undef provided to immutable constructor gives useful error message';