X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F100_bugs%2F011_DEMOLISH_eats_exceptions.t;h=58138922e359c28f08b48de7aa8d97f221ee1b03;hb=a62dcd43575e3069a70277082c7be85fb71322bf;hp=f7852838d552e1a7f1ac576b63e5da5d7ad887ed;hpb=77b2b6f2ff38f991eaefa4d50547d95b09ed848c;p=gitmo%2FMoose.git diff --git a/t/100_bugs/011_DEMOLISH_eats_exceptions.t b/t/100_bugs/011_DEMOLISH_eats_exceptions.t index f785283..5813892 100644 --- a/t/100_bugs/011_DEMOLISH_eats_exceptions.t +++ b/t/100_bugs/011_DEMOLISH_eats_exceptions.t @@ -116,7 +116,7 @@ sub check_em { } { local $@; - my $obj = eval { $pkg->new ( undef ); }; + my $obj = eval { $pkg->new ( notanattr => 1 ); }; ::like( $@, qr/is required/, "... $pkg undef" ); ::is( $obj, undef, "... the object is undef" ); }