Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Fix the test names to reflect moose-osity

  • Loading branch information...
commit 4a9bab83675b5bd8f9a3fd0935f70403feac01d3 1 parent 18ddb85
Shawn M Moore authored
Showing with 38 additions and 38 deletions.
  1. +16 −22 t/001-basic-moose.t
  2. +22 −16 t/001-basic-mouse.t
View
38 t/001-basic-moose.t
@@ -6,42 +6,36 @@ use Test::More;
BEGIN { delete $ENV{ANY_MOOSE} }
BEGIN {
- eval 'require Mouse';
- plan skip_all => 'Mouse not available' if $@;
+ eval 'require Moose';
+ plan skip_all => 'Moose not available' if $@;
plan tests => 9;
}
do {
- package Moused::Any::Moose;
+ package Moosed::Any::Moose;
use Any::Moose;
::ok(__PACKAGE__->can('meta'), 'Mo*se was installed');
- ::like(__PACKAGE__->meta, qr/^Mouse/, 'Mouse was installed');
+ ::like(__PACKAGE__->meta, qr/^Moose/, 'Moose was installed');
- ::is(any_moose, 'Mouse');
- ::is(any_moose('::Util::TypeConstraints'), 'Mouse::Util::TypeConstraints');
+ ::is(any_moose, 'Moose');
+ ::is(any_moose('::Util::TypeConstraints'), 'Moose::Util::TypeConstraints');
- ::is(any_moose, 'Mouse', 'still Mouse even if Moose is loaded');
+ ::is(any_moose, 'Moose', 'still Moose even if Moose is loaded');
no Any::Moose;
};
-ok(!Moused::Any::Moose->can('has'), "has was unimported");
+ok(!Moosed::Any::Moose->can('has'), "has was unimported");
-SKIP: {
- my $loaded_moose;
- BEGIN { $loaded_moose = eval 'require Moose' }
- skip "Moose required for these tests to be useful" => 3 unless $loaded_moose;
-
- do {
- package After::Moose;
- use Any::Moose;
+do {
+ package After::Moose;
+ use Any::Moose;
- ::is(any_moose, 'Mouse');
- ::is(any_moose('::Util::TypeConstraints'), 'Mouse::Util::TypeConstraints');
+ ::is(any_moose, 'Moose');
+ ::is(any_moose('::Util::TypeConstraints'), 'Moose::Util::TypeConstraints');
- no Any::Moose;
- };
+ no Any::Moose;
+};
- ok(!After::Moose->can('has'), "has was unimported");
-}
+ok(!After::Moose->can('has'), "has was unimported");
View
38 t/001-basic-mouse.t
@@ -6,36 +6,42 @@ use Test::More;
BEGIN { delete $ENV{ANY_MOOSE} }
BEGIN {
- eval 'require Moose';
- plan skip_all => 'Moose not available' if $@;
+ eval 'require Mouse';
+ plan skip_all => 'Mouse not available' if $@;
plan tests => 9;
}
do {
- package Moosed::Any::Moose;
+ package Moused::Any::Moose;
use Any::Moose;
::ok(__PACKAGE__->can('meta'), 'Mo*se was installed');
- ::like(__PACKAGE__->meta, qr/^Moose/, 'Moose was installed');
+ ::like(__PACKAGE__->meta, qr/^Mouse/, 'Mouse was installed');
- ::is(any_moose, 'Moose');
- ::is(any_moose('::Util::TypeConstraints'), 'Moose::Util::TypeConstraints');
+ ::is(any_moose, 'Mouse');
+ ::is(any_moose('::Util::TypeConstraints'), 'Mouse::Util::TypeConstraints');
- ::is(any_moose, 'Moose', 'still Moose even if Moose is loaded');
+ ::is(any_moose, 'Mouse', 'still Mouse even if Moose is loaded');
no Any::Moose;
};
-ok(!Moosed::Any::Moose->can('has'), "has was unimported");
+ok(!Moused::Any::Moose->can('has'), "has was unimported");
-do {
- package After::Moose;
- use Any::Moose;
+SKIP: {
+ my $loaded_moose;
+ BEGIN { $loaded_moose = eval 'require Moose' }
+ skip "Moose required for these tests to be useful" => 3 unless $loaded_moose;
- ::is(any_moose, 'Moose');
- ::is(any_moose('::Util::TypeConstraints'), 'Moose::Util::TypeConstraints');
+ do {
+ package After::Moose;
+ use Any::Moose;
- no Any::Moose;
-};
+ ::is(any_moose, 'Mouse');
+ ::is(any_moose('::Util::TypeConstraints'), 'Mouse::Util::TypeConstraints');
+
+ no Any::Moose;
+ };
-ok(!After::Moose->can('has'), "has was unimported");
+ ok(!After::Moose->can('has'), "has was unimported");
+}
Please sign in to comment.
Something went wrong with that request. Please try again.