From: Fuji, Goro <gfuji@cpan.org>
Date: Thu, 23 Sep 2010 10:46:21 +0000 (+0900)
Subject: Tests
X-Git-Tag: 0.71~28
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8d85517c90188f55a9e46e35ba41a7d61a244d75;hp=902174eb6dc2afbe8a2b8fb0a27446b3276787d8;p=gitmo%2FMouse.git

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
--- 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;