Tests

diff --git a/t/001_mouse/301-bugs-non-mouse.t b/t/001_mouse/301-bugs-non-mouse.t
index bfa53a4..fd4bf90 100644 (file)
--- 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 'no_plan';
+use Test::More;
 use Test::Exception;
-
+my $warn = '';
+BEGIN { $SIG{__WARN__} = sub { $warn .= "@_" } }
 {
     package Foo;
     use Mouse;
@@ -29,6 +29,9 @@ use Test::Exception;
     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;