From: gfx <gfuji@cpan.org>
Date: Sat, 5 Dec 2009 05:01:11 +0000 (+0900)
Subject: Fix tests
X-Git-Tag: 0.41~2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=commitdiff_plain;h=4f21a0b34ad4e342e881ccd86fb573c4d811303c

Fix tests
---

diff --git a/t/001_mouse/062-package-symbol.t b/t/001_mouse/062-package-symbol.t
index d977089..b9b3d0b 100644
--- a/t/001_mouse/062-package-symbol.t
+++ b/t/001_mouse/062-package-symbol.t
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 17;
+use Test::More;
 
 {
     package Foo;
@@ -19,7 +19,7 @@ use Test::More tests => 17;
 
 my $meta = Foo->meta;
 
-foreach my $sym(qw(&code $scalar %hash @array *code *scalar *hash *array)){
+foreach my $sym(qw(&code $scalar %hash @array)){
     ok $meta->has_package_symbol($sym),      "has_package_symbol('$sym')";
 }
 
@@ -30,8 +30,9 @@ is $meta->get_package_symbol('&code'),   \&Foo::code;
 is $meta->get_package_symbol('$scalar'), \$Foo::scalar;
 is $meta->get_package_symbol('%hash'),   \%Foo::hash;
 is $meta->get_package_symbol('@array'),  \@Foo::array;
-is $meta->get_package_symbol('*code'), \*Foo::code;
 
-is $meta->get_package_symbol('$hogehoge'), undef;
+is $meta->get_package_symbol('@hogehoge'), undef;
 is $meta->get_package_symbol('%array'),    undef;
+is $meta->get_package_symbol('&hash'),     undef;
 
+done_testing;
diff --git a/tool/create-moose-compatibility-tests.pl b/tool/create-moose-compatibility-tests.pl
index 53e6ec1..4b8d49e 100644
--- a/tool/create-moose-compatibility-tests.pl
+++ b/tool/create-moose-compatibility-tests.pl
@@ -25,7 +25,8 @@ my %SKIP_TEST = (
     '602-mouse-tiny.t'    => "Moose doesn't support ::Tiny",
     '603-mouse-pureperl.t'=> "Moose doesn't have ::PurePerl",
 
-    '031_roles_applied_in_create.t' => 't/lib/* classes are not Moose classes/roles',
+    '031_roles_applied_in_create.t' => 't/lib/*.pm are not for Moose',
+    '013_metaclass_traits.t'        => 't/lib/*.pm are not for Moose',
 );
 
 my @compat_tests;
diff --git a/tool/generate-mouse-tiny.pl b/tool/generate-mouse-tiny.pl
index 9eb5c76..d524435 100644
--- a/tool/generate-mouse-tiny.pl
+++ b/tool/generate-mouse-tiny.pl
@@ -107,12 +107,16 @@ Mouse::Tiny - Mouse in a single file
 
 =head1 DESCRIPTION
 
-Mouse::Tiny is just Mouse itself, but it is in a single file.
+Mouse::Tiny is Mouse, but it is in a single file.
 
 This is B<not> tiny. In fact, it requires a little more memory and time than Mouse.
 
 Use Mouse directly unless you know what you do.
 
+=head1 SEE ALSO
+
+L<Mouse>
+
 =cut
 
 EOF