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/, 'Non-ref provided to immutable constructor gives useful error message' );
29 like( exception { Foo->new(\$scalar) }, qr/\QSingle parameters to new() must be a HASH ref/, 'Scalar ref provided to immutable constructor gives useful error message' );
30 like( exception { Foo->new(undef) }, qr/\QSingle parameters to new() must be a HASH ref/, 'undef provided to immutable constructor gives useful error message' );