X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F300_immutable%2F008_immutable_constructor_error.t;h=d4af4934bc8feafe324bfd01130e669a8ca1f34b;hb=9864f0e4ba233c5f30ad6dc7c484ced43d883d27;hp=521d2f4d5637c090c5ed3e92ef5949dc7e0640c6;hpb=8845df4dd6432e3164d078ade741409061adae9f;p=gitmo%2FMouse.git diff --git a/t/300_immutable/008_immutable_constructor_error.t b/t/300_immutable/008_immutable_constructor_error.t index 521d2f4..d4af493 100644 --- a/t/300_immutable/008_immutable_constructor_error.t +++ b/t/300_immutable/008_immutable_constructor_error.t @@ -1,15 +1,13 @@ #!/usr/bin/perl -# This is automatically generated by author/import-moose-test.pl. -# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!! -use t::lib::MooseCompat; use strict; use warnings; -use Test::More; +use Test::More tests => 2; use Test::Exception; + =pod This tests to make sure that we provide the same error messages from @@ -32,7 +30,4 @@ throws_ok { Foo->new($scalar) } qr/\QSingle parameters to new() must be a HASH r '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;