X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F001_mouse%2F301-bugs-non-mouse.t;fp=t%2F001_mouse%2F301-bugs-non-mouse.t;h=bfa53a4fc3a1195ae80ba1656ecb87bad46ba160;hb=9864f0e4ba233c5f30ad6dc7c484ced43d883d27;hp=fd4bf90f28078848a3a77cb1e6909c2ff3cc3b77;hpb=8845df4dd6432e3164d078ade741409061adae9f;p=gitmo%2FMouse.git diff --git a/t/001_mouse/301-bugs-non-mouse.t b/t/001_mouse/301-bugs-non-mouse.t index fd4bf90..bfa53a4 100644 --- a/t/001_mouse/301-bugs-non-mouse.t +++ b/t/001_mouse/301-bugs-non-mouse.t @@ -1,11 +1,11 @@ #!/usr/bin/perl + use strict; use warnings; -use Test::More; +use Test::More 'no_plan'; use Test::Exception; -my $warn = ''; -BEGIN { $SIG{__WARN__} = sub { $warn .= "@_" } } + { package Foo; use Mouse; @@ -29,9 +29,6 @@ BEGIN { $SIG{__WARN__} = sub { $warn .= "@_" } } my $g = Gorch->new; is( $g->foo, "the default", "inherited attribute" ); - is( $g->oink, "oink", "inherited method from a non-Mouse class"); } -is $warn, '', 'produces no warnings'; -done_testing;