File perl-Moose-old_Test-More.patch of Package perl-Moose
Index: t/000_load.t
===================================================================
--- t.orig/000_load.t
+++ t/000_load.t
@@ -3,10 +3,10 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
BEGIN {
use_ok('Moose');
}
-done_testing;
+#done_testing;
Index: t/attributes/accessor_context.t
===================================================================
--- t.orig/attributes/accessor_context.t
+++ t/attributes/accessor_context.t
@@ -2,7 +2,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
is( exception {
@@ -67,4 +67,4 @@ is( exception {
}, undef, 'testing' );
-done_testing;
+#done_testing;
Index: t/attributes/accessor_inlining.t
===================================================================
--- t.orig/attributes/accessor_inlining.t
+++ t/attributes/accessor_inlining.t
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
my $called;
{
@@ -30,4 +30,4 @@ my $foo = Foo->new(foo => 1);
is($foo->foo, 1, "got the right value");
is($called, 1, "reader was called");
-done_testing;
+#done_testing;
Index: t/attributes/accessor_override_method.t
===================================================================
--- t.orig/attributes/accessor_override_method.t
+++ t/attributes/accessor_override_method.t
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Requires {
'Test::Output' => '0.01', # skip all if not installed
@@ -33,4 +33,4 @@ stderr_like(sub { $foo_meta->add_attribu
stderr_like(sub { $foo_meta->add_attribute(has => (is => 'rw')) },
qr/^You are overwriting a locally defined function \(has\) with an accessor/, 'function overriding gives proper warning');
-done_testing;
+#done_testing;
Index: t/attributes/accessor_overwrite_warning.t
===================================================================
--- t.orig/attributes/accessor_overwrite_warning.t
+++ t/attributes/accessor_overwrite_warning.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Requires {
'Test::Output' => '0.01',
@@ -24,4 +24,4 @@ use Test::Requires {
'overwriting an accessor for another attribute causes a warning';
}
-done_testing;
+#done_testing;
Index: t/attributes/attr_dereference_test.t
===================================================================
--- t.orig/attributes/attr_dereference_test.t
+++ t/attributes/attr_dereference_test.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
@@ -79,4 +79,4 @@ use Test::Fatal;
is_deeply [ $autoderef->bar ], [ 1, 2, 3 ], '... auto-dereffed correctly';
}
-done_testing;
+#done_testing;
Index: t/attributes/attribute_accessor_generation.t
===================================================================
--- t.orig/attributes/attribute_accessor_generation.t
+++ t/attributes/attribute_accessor_generation.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Scalar::Util 'isweak';
@@ -203,4 +203,4 @@ use Scalar::Util 'isweak';
is_deeply( \%hash, { foo => 1, bar => 2 }, "list context");
}
-done_testing;
+#done_testing;
Index: t/attributes/attribute_custom_metaclass.t
===================================================================
--- t.orig/attributes/attribute_custom_metaclass.t
+++ t/attributes/attribute_custom_metaclass.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
@@ -89,4 +89,4 @@ use Test::Fatal;
isa_ok($bar_attr, 'Moose::Meta::Attribute');
}
-done_testing;
+#done_testing;
Index: t/attributes/attribute_delegation.t
===================================================================
--- t.orig/attributes/attribute_delegation.t
+++ t/attributes/attribute_delegation.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
@@ -454,4 +454,4 @@ is($car->stop, 'Engine::stop', '... got
is( exception { $k->foo_baz }, undef, "but not for class name" );
}
-done_testing;
+#done_testing;
Index: t/attributes/attribute_does.t
===================================================================
--- t.orig/attributes/attribute_does.t
+++ t/attributes/attribute_does.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
@@ -98,4 +98,4 @@ is( exception {
}, undef, '... cannot have a isa() which is cannot does()' );
}
-done_testing;
+#done_testing;
Index: t/attributes/attribute_inherited_slot_specs.t
===================================================================
--- t.orig/attributes/attribute_inherited_slot_specs.t
+++ t/attributes/attribute_inherited_slot_specs.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
@@ -268,4 +268,4 @@ ok(!Foo->meta->get_attribute('bling')->h
ok(Bar->meta->get_attribute('bling')->has_handles,
'... Bar::foo should handles');
-done_testing;
+#done_testing;
Index: t/attributes/attribute_lazy_initializer.t
===================================================================
--- t.orig/attributes/attribute_lazy_initializer.t
+++ t/attributes/attribute_lazy_initializer.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
@@ -147,4 +147,4 @@ isnt( exception {
Fail::Bar->new(foo => 10)
}, undef, '... this fails, because initializer returns a bad type' );
-done_testing;
+#done_testing;
Index: t/attributes/attribute_names.t
===================================================================
--- t.orig/attributes/attribute_names.t
+++ t/attributes/attribute_names.t
@@ -2,7 +2,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
my $exception_regex = qr/You must provide a name for the attribute/;
@@ -56,4 +56,4 @@ my $exception_regex = qr/You must provid
}, undef, 'has 0; works now' );
}
-done_testing;
+#done_testing;
Index: t/attributes/attribute_reader_generation.t
===================================================================
--- t.orig/attributes/attribute_reader_generation.t
+++ t/attributes/attribute_reader_generation.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
@@ -82,4 +82,4 @@ use Test::Fatal;
is($foo->get_lazy_foo(), 100, '... got the correct value');
}
-done_testing;
+#done_testing;
Index: t/attributes/attribute_required.t
===================================================================
--- t.orig/attributes/attribute_required.t
+++ t/attributes/attribute_required.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
@@ -65,4 +65,4 @@ like( exception {
Foo->new;
}, qr/^Attribute \(bar\) is required/, '... must supply all the required attribute' );
-done_testing;
+#done_testing;
Index: t/attributes/attribute_traits.t
===================================================================
--- t.orig/attributes/attribute_traits.t
+++ t/attributes/attribute_traits.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Moose;
@@ -62,4 +62,4 @@ ok(!$gorch_attr->does('My::Attribute::Tr
ok(!$gorch_attr->has_applied_traits, '... no traits applied');
is($gorch_attr->applied_traits, undef, '... no traits applied');
-done_testing;
+#done_testing;
Index: t/attributes/attribute_traits_n_meta.t
===================================================================
--- t.orig/attributes/attribute_traits_n_meta.t
+++ t/attributes/attribute_traits_n_meta.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Moose;
@@ -62,4 +62,4 @@ isa_ok($c->meta->get_attribute('bar'), '
does_ok($c->meta->get_attribute('bar'), 'My::Attribute::Trait');
is($c->meta->get_attribute('bar')->_is_metadata, 'ro', '... got the right metaclass customization');
-done_testing;
+#done_testing;
Index: t/attributes/attribute_traits_parameterized.t
===================================================================
--- t.orig/attributes/attribute_traits_parameterized.t
+++ t/attributes/attribute_traits_parameterized.t
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
{
package My::Attribute::Trait;
@@ -55,4 +55,4 @@ is($other_attr->reversed, 'oof', 'the al
ok(!$other_attr->can('enam'), "the method was not installed under the other class' alias");
ok(!$other_attr->can('reversed_name'), "the method was not installed under the original name when that was excluded");
-done_testing;
+#done_testing;
Index: t/attributes/attribute_traits_registered.t
===================================================================
--- t.orig/attributes/attribute_traits_registered.t
+++ t/attributes/attribute_traits_registered.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Moose;
@@ -113,4 +113,4 @@ ok(!$derived_bar_attr->does('Fictional')
can_ok($quux, 'additional_method');
is(eval { $quux->additional_method }, 42, '... got the right value for additional_method');
-done_testing;
+#done_testing;
Index: t/attributes/attribute_triggers.t
===================================================================
--- t.orig/attributes/attribute_triggers.t
+++ t/attributes/attribute_triggers.t
@@ -5,7 +5,7 @@ use warnings;
use Scalar::Util 'isweak';
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
@@ -218,4 +218,4 @@ use Test::Fatal;
Foo->meta->make_immutable, redo if Foo->meta->is_mutable;
}
-done_testing;
+#done_testing;
Index: t/attributes/attribute_type_unions.t
===================================================================
--- t.orig/attributes/attribute_type_unions.t
+++ t/attributes/attribute_type_unions.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
@@ -95,4 +95,4 @@ isnt( exception {
Bar->new(baz => {})
}, undef, '... didnt create a new Bar with baz as a HASH ref' );
-done_testing;
+#done_testing;
Index: t/attributes/attribute_without_any_methods.t
===================================================================
--- t.orig/attributes/attribute_without_any_methods.t
+++ t/attributes/attribute_without_any_methods.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Moose ();
use Moose::Meta::Class;
@@ -21,4 +21,4 @@ $warn = '';
$meta->add_attribute('bar', is => 'bare');
is $warn, '', 'add attribute with no methods and is => "bare"';
-done_testing;
+#done_testing;
Index: t/attributes/attribute_writer_generation.t
===================================================================
--- t.orig/attributes/attribute_writer_generation.t
+++ t/attributes/attribute_writer_generation.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Scalar::Util 'isweak';
@@ -116,4 +116,4 @@ use Scalar::Util 'isweak';
ok(isweak($foo->{foo_weak}), '... it is a weak reference');
}
-done_testing;
+#done_testing;
Index: t/attributes/bad_coerce.t
===================================================================
--- t.orig/attributes/bad_coerce.t
+++ t/attributes/bad_coerce.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Requires {
'Test::Output' => '0.01', # skip all if not installed
@@ -31,4 +31,4 @@ use Test::Requires {
'Cannot coerce unless the type has a coercion - different attribute';
}
-done_testing;
+#done_testing;
Index: t/attributes/chained_coercion.t
===================================================================
--- t.orig/attributes/chained_coercion.t
+++ t/attributes/chained_coercion.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
{
package Baz;
@@ -45,4 +45,4 @@ isa_ok($foo->bar, 'Bar');
isa_ok($foo->bar->baz, 'Baz');
is($foo->bar->baz->hello, 'World', '... this all worked fine');
-done_testing;
+#done_testing;
Index: t/attributes/clone_weak.t
===================================================================
--- t.orig/attributes/clone_weak.t
+++ t/attributes/clone_weak.t
@@ -1,6 +1,6 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
{
package Foo;
@@ -174,4 +174,4 @@ use Test::More;
is($attr->count($clone), $attr->count($bar), "right count");
}
-done_testing;
+#done_testing;
Index: t/attributes/default_undef.t
===================================================================
--- t.orig/attributes/default_undef.t
+++ t/attributes/default_undef.t
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Moose;
{
@@ -21,4 +21,4 @@ with_immutable {
ok(Foo->new->has_foo);
} 'Foo';
-done_testing;
+#done_testing;
Index: t/attributes/delegation_and_modifiers.t
===================================================================
--- t.orig/attributes/delegation_and_modifiers.t
+++ t/attributes/delegation_and_modifiers.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
{
package Bar;
@@ -53,4 +53,4 @@ is($foo->baz, 'Bar::baz', '... got the r
ok($foo->test, '... the test value has now been changed');
-done_testing;
+#done_testing;
Index: t/attributes/delegation_arg_aliasing.t
===================================================================
--- t.orig/attributes/delegation_arg_aliasing.t
+++ t/attributes/delegation_arg_aliasing.t
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
{
package Foo;
@@ -38,4 +38,4 @@ undef $x;
$hasfoo->foo_aliased_curried($x);
is($x, 'bar', "delegated aliasing with currying works");
-done_testing;
+#done_testing;
Index: t/attributes/delegation_target_not_loaded.t
===================================================================
--- t.orig/attributes/delegation_target_not_loaded.t
+++ t/attributes/delegation_target_not_loaded.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
{
@@ -32,4 +32,4 @@ use Test::Fatal;
);
}
-done_testing;
+#done_testing;
Index: t/attributes/illegal_options_for_inheritance.t
===================================================================
--- t.orig/attributes/illegal_options_for_inheritance.t
+++ t/attributes/illegal_options_for_inheritance.t
@@ -2,7 +2,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
{
@@ -74,4 +74,4 @@ use Test::Fatal;
my $bar_attr = Bar->meta->get_attribute('bar');
ok((grep { $_ eq 'my_illegal_option' } $bar_attr->illegal_options_for_inheritance) > 0, '... added my_illegal_option as illegal option for inheritance');
-done_testing;
+#done_testing;
Index: t/attributes/inherit_lazy_build.t
===================================================================
--- t.orig/attributes/inherit_lazy_build.t
+++ t/attributes/inherit_lazy_build.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
{
@@ -72,4 +72,4 @@ is(
'attribute defined as lazy_build in child is properly built'
);
-done_testing;
+#done_testing;
Index: t/attributes/lazy_no_default.t
===================================================================
--- t.orig/attributes/lazy_no_default.t
+++ t/attributes/lazy_no_default.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
{
@@ -21,4 +21,4 @@ use Test::Fatal;
);
}
-done_testing;
+#done_testing;
Index: t/attributes/method_generation_rules.t
===================================================================
--- t.orig/attributes/method_generation_rules.t
+++ t/attributes/method_generation_rules.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
@@ -60,4 +60,4 @@ is($obj->_foo(), 1, "$class->foo is read
isnt( exception { make_class('ro', 'accessor', "Test::Class::AccessorRO"); }, undef, "Cant define attr with ro + accessor" );
-done_testing;
+#done_testing;
Index: t/attributes/misc_attribute_coerce_lazy.t
===================================================================
--- t.orig/attributes/misc_attribute_coerce_lazy.t
+++ t/attributes/misc_attribute_coerce_lazy.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
@@ -47,4 +47,4 @@ is( exception {
$r->headers;
}, undef, '... this coerces and passes the type constraint even with lazy' );
-done_testing;
+#done_testing;
Index: t/attributes/misc_attribute_tests.t
===================================================================
--- t.orig/attributes/misc_attribute_tests.t
+++ t/attributes/misc_attribute_tests.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
@@ -269,4 +269,4 @@ ok(OutOfClassTest->meta->get_attribute('
}
-done_testing;
+#done_testing;
Index: t/attributes/more_attr_delegation.t
===================================================================
--- t.orig/attributes/more_attr_delegation.t
+++ t/attributes/more_attr_delegation.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
=pod
@@ -260,4 +260,4 @@ is( $p->child_g_method_1, "g1", "delegat
can_ok( $p, "child_i_method_1" );
is( $p->parent_method_1, "parent_1", "delegate doesn't override existing method" );
-done_testing;
+#done_testing;
Index: t/attributes/no_init_arg.t
===================================================================
--- t.orig/attributes/no_init_arg.t
+++ t/attributes/no_init_arg.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
@@ -31,4 +31,4 @@ use Test::More;
is( $foo->foo, "blah", "field is set via setter" );
}
-done_testing;
+#done_testing;
Index: t/attributes/no_slot_access.t
===================================================================
--- t.orig/attributes/no_slot_access.t
+++ t/attributes/no_slot_access.t
@@ -60,7 +60,7 @@ use warnings;
use Moose;
use Moose::Util::MetaRole;
- use Test::More;
+ use Test::More qw(no_plan);
use Test::Fatal;
Moose::Util::MetaRole::apply_metaroles(
@@ -85,5 +85,5 @@ use warnings;
is( exception { __PACKAGE__->meta->make_immutable; }, undef, "Inling constructor does not use inline_slot_access" );
- done_testing;
+ #done_testing;
}
Index: t/attributes/non_alpha_attr_names.t
===================================================================
--- t.orig/attributes/non_alpha_attr_names.t
+++ t/attributes/non_alpha_attr_names.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Moose;
{
@@ -63,4 +63,4 @@ with_immutable {
}
'Foo';
-done_testing;
+#done_testing;
Index: t/attributes/numeric_defaults.t
===================================================================
--- t.orig/attributes/numeric_defaults.t
+++ t/attributes/numeric_defaults.t
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Moose;
use B;
@@ -125,4 +125,4 @@ with_immutable {
}
} 'Baz2';
-done_testing;
+#done_testing;
Index: t/attributes/trigger_and_coerce.t
===================================================================
--- t.orig/attributes/trigger_and_coerce.t
+++ t/attributes/trigger_and_coerce.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
{
@@ -52,4 +52,4 @@ ok( Mortgage->meta->is_immutable, '... M
isa_ok( $mtg->closing_date, 'Fake::DateTime' );
}
-done_testing;
+#done_testing;
Index: t/author-test-my-dependents.t
===================================================================
--- t.orig/author-test-my-dependents.t
+++ t/author-test-my-dependents.t
@@ -40,7 +40,7 @@ my $exclude = qr/^Acme-/x;
if ( $ENV{MOOSE_TEST_MD_ALL} ) {
test_all_dependents( 'Moose', { exclude => $exclude } );
- done_testing;
+ #done_testing;
}
else {
my @modules = map { chomp; $_ } <DATA>;
Index: t/basics/always_strict_warnings.t
===================================================================
--- t.orig/basics/always_strict_warnings.t
+++ t/basics/always_strict_warnings.t
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-use Test::More;
+use Test::More qw(no_plan);
# for classes ...
{
@@ -68,4 +68,4 @@ use Test::More;
}
}
-done_testing;
+#done_testing;
Index: t/basics/basic_class_setup.t
===================================================================
--- t.orig/basics/basic_class_setup.t
+++ t/basics/basic_class_setup.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
@@ -49,4 +49,4 @@ foreach my $import (qw(
ok(!Foo->can($import), "no namespace pollution in Moose::Object ($import)" );
}
-done_testing;
+#done_testing;
Index: t/basics/buildargs.t
===================================================================
--- t.orig/basics/buildargs.t
+++ t/basics/buildargs.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
{
package Foo;
@@ -40,4 +40,4 @@ foreach my $class (qw(Foo Bar)) {
}
}
-done_testing;
+#done_testing;
Index: t/basics/buildargs_warning.t
===================================================================
--- t.orig/basics/buildargs_warning.t
+++ t/basics/buildargs_warning.t
@@ -4,7 +4,7 @@ use strict;
use warnings;
use Test::Fatal;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Moose qw( with_immutable );
use Test::Requires {
@@ -33,4 +33,4 @@ with_immutable {
}
'Baz';
-done_testing;
+#done_testing;
Index: t/basics/create.t
===================================================================
--- t.orig/basics/create.t
+++ t/basics/create.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
{
@@ -58,4 +58,4 @@ isnt( exception {
# XXX: Continuing::To::Fail gets created anyway
-done_testing;
+#done_testing;
Index: t/basics/create_anon.t
===================================================================
--- t.orig/basics/create_anon.t
+++ t/basics/create_anon.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Moose::Meta::Class;
@@ -124,4 +124,4 @@ use Moose::Meta::Class;
ok(!$meta, "removing a cached anon class means it's actually gone");
}
-done_testing;
+#done_testing;
Index: t/basics/deprecations.t
===================================================================
--- t.orig/basics/deprecations.t
+++ t/basics/deprecations.t
@@ -2,7 +2,7 @@ use strict;
use warnings;
use Test::Fatal;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Requires {
'Test::Output' => '0.01',
@@ -171,5 +171,5 @@ use Test::Requires {
sub _build_foo { q{} }
}
-done_testing;
+#done_testing;
Index: t/basics/destruction.t
===================================================================
--- t.orig/basics/destruction.t
+++ t/basics/destruction.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
our @demolished;
package Foo;
@@ -50,4 +50,4 @@ is_deeply(\@demolished, ['Foo::Sub::Sub'
"Foo::Sub::Sub demolished properly");
@demolished = ();
-done_testing;
+#done_testing;
Index: t/basics/error_handling.t
===================================================================
--- t.orig/basics/error_handling.t
+++ t/basics/error_handling.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
# This tests the error handling in Moose::Object only
@@ -18,4 +18,4 @@ like( exception { Foo->new(undef) }, qr/
like( exception { Foo->does() }, qr/^\QYou must supply a role name to does()/, 'Cannot call does() without a role name' );
-done_testing;
+#done_testing;
Index: t/basics/global_destruction.t
===================================================================
--- t.orig/basics/global_destruction.t
+++ t/basics/global_destruction.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
{
package Foo;
@@ -48,4 +48,4 @@ ok(
'in_global_destruction state is passed to DEMOLISH properly (true)'
) for split //, `$^X t/basics/global-destruction-helper.pl`;
-done_testing;
+#done_testing;
Index: t/basics/import_unimport.t
===================================================================
--- t.orig/basics/import_unimport.t
+++ t/basics/import_unimport.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
my @moose_exports = qw(
@@ -97,4 +97,4 @@ my $blessed;
can_ok( 'Quux', 'blessed' );
is( $blessed, \&Scalar::Util::blessed );
-done_testing;
+#done_testing;
Index: t/basics/inner_and_augment.t
===================================================================
--- t.orig/basics/inner_and_augment.t
+++ t/basics/inner_and_augment.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
@@ -116,4 +116,4 @@ is('a.X a.Y b.X b.Y b.Z a.Z',
}
-done_testing;
+#done_testing;
Index: t/basics/load_into_main.t
===================================================================
--- t.orig/basics/load_into_main.t
+++ t/basics/load_into_main.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
is( exception {
@@ -15,4 +15,4 @@ isa_ok( main->meta, "Moose::Meta::Class"
isa_ok( main->new, "main");
isa_ok( main->new, "Moose::Object" );
-done_testing;
+#done_testing;
Index: t/basics/method_modifier_with_regexp.t
===================================================================
--- t.orig/basics/method_modifier_with_regexp.t
+++ t/basics/method_modifier_with_regexp.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
@@ -83,4 +83,4 @@ is( $Cat::AFTER_BARK_COUNTER, 2, 'after
}
-done_testing;
+#done_testing;
Index: t/basics/methods.t
===================================================================
--- t.orig/basics/methods.t
+++ t/basics/methods.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
my $test1 = Moose::Meta::Class->create_anon_class;
@@ -43,4 +43,4 @@ isa_ok(
is( $t2_am->name(), 'Test2',
'associated_metaclass->name is Test2' );
-done_testing;
+#done_testing;
Index: t/basics/moose_object_does.t
===================================================================
--- t.orig/basics/moose_object_does.t
+++ t/basics/moose_object_does.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Moose;
{
@@ -155,4 +155,4 @@ with_immutable {
}
qw( Foo Bar Baz Foo::Child Bar::Child Baz::Child );
-done_testing;
+#done_testing;
Index: t/basics/moose_respects_type_constraints.t
===================================================================
--- t.orig/basics/moose_respects_type_constraints.t
+++ t/basics/moose_respects_type_constraints.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Moose::Util::TypeConstraints;
@@ -58,4 +58,4 @@ isnt( exception {
$bar->foo(Foo->new);
}, undef, '... checked the type constraint correctly' );
-done_testing;
+#done_testing;
Index: t/basics/override_and_foreign_classes.t
===================================================================
--- t.orig/basics/override_and_foreign_classes.t
+++ t/basics/override_and_foreign_classes.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
=pod
@@ -71,4 +71,4 @@ is($foo->foo(), 'Foo::foo', '... got the
is($foo->bar(), 'Foo::bar', '... got the right value from &bar');
is($foo->baz(), 'Foo::baz', '... got the right value from &baz');
-done_testing;
+#done_testing;
Index: t/basics/override_augment_inner_super.t
===================================================================
--- t.orig/basics/override_augment_inner_super.t
+++ t/basics/override_augment_inner_super.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
{
@@ -68,4 +68,4 @@ is($baz->bar,
'Bar::bar -> Foo::bar(Baz::bar)',
'... got the right value from mixed augment/override bar');
-done_testing;
+#done_testing;
Index: t/basics/rebless.t
===================================================================
--- t.orig/basics/rebless.t
+++ t/basics/rebless.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Scalar::Util 'blessed';
@@ -78,4 +78,4 @@ is($bar->lazy_classname, 'Child', "lazy
like( exception { $foo->type_constrained(10.5) }, qr/^Attribute \(type_constrained\) does not pass the type constraint because\: Validation failed for 'Int' with value 10\.5/, '... this failed because of type check' );
-done_testing;
+#done_testing;
Index: t/basics/require_superclasses.t
===================================================================
--- t.orig/basics/require_superclasses.t
+++ t/basics/require_superclasses.t
@@ -5,7 +5,7 @@ use warnings;
use lib 't/lib', 'lib';
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
@@ -60,4 +60,4 @@ use Test::Fatal;
::like( ::exception { extends 'Foo', Affe => { -version => 42 } }, qr/Affe version 42 required--this is only version 23/, 'extends with unsatisfied version requirement' );
}
-done_testing;
+#done_testing;
Index: t/basics/super_and_override.t
===================================================================
--- t.orig/basics/super_and_override.t
+++ t/basics/super_and_override.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
@@ -78,4 +78,4 @@ is($foo->baz(), 'Foo::baz', '... got the
}
-done_testing;
+#done_testing;
Index: t/basics/wrapped_method_cxt_propagation.t
===================================================================
--- t.orig/basics/wrapped_method_cxt_propagation.t
+++ t/basics/wrapped_method_cxt_propagation.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
{
@@ -55,4 +55,4 @@ foreach my $obj ( $base, $after ) {
}
}
-done_testing;
+#done_testing;
Index: t/bugs/DEMOLISHALL.t
===================================================================
--- t.orig/bugs/DEMOLISHALL.t
+++ t/bugs/DEMOLISHALL.t
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
my @called;
@@ -52,4 +52,4 @@ do {
is_deeply([splice @called], ['Child::DEMOLISHALL', 'Class::DEMOLISHALL', 'Child::DEMOLISH', 'Class::DEMOLISH']);
-done_testing;
+#done_testing;
Index: t/bugs/DEMOLISHALL_shortcutted.t
===================================================================
--- t.orig/bugs/DEMOLISHALL_shortcutted.t
+++ t/bugs/DEMOLISHALL_shortcutted.t
@@ -19,7 +19,7 @@ sub DEMOLISH {};
package main;
-use Test::More;
+use Test::More qw(no_plan);
my $m = DemolishAll::WithDemolish->new;
undef $m;
@@ -29,4 +29,4 @@ $m = DemolishAll::WithoutDemolish->new;
undef $m;
is ( $Role::DemolishAll::ok, 1, 'DemolishAll wo/ explicit DEMOLISH sub' );
-done_testing;
+#done_testing;
Index: t/bugs/DEMOLISH_eats_exceptions.t
===================================================================
--- t.orig/bugs/DEMOLISH_eats_exceptions.t
+++ t/bugs/DEMOLISH_eats_exceptions.t
@@ -4,7 +4,7 @@ use strict;
use warnings;
use FindBin;
-use Test::More;
+use Test::More qw(no_plan);
use Moose::Util::TypeConstraints;
@@ -148,4 +148,4 @@ sub check_em {
}
}
-done_testing;
+#done_testing;
Index: t/bugs/DEMOLISH_eats_mini.t
===================================================================
--- t.orig/bugs/DEMOLISH_eats_mini.t
+++ t/bugs/DEMOLISH_eats_mini.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
@@ -78,4 +78,4 @@ use Test::Fatal;
if Baz->meta->is_mutable
}
-done_testing;
+#done_testing;
Index: t/bugs/DEMOLISH_fails_without_metaclass.t
===================================================================
--- t.orig/bugs/DEMOLISH_fails_without_metaclass.t
+++ t/bugs/DEMOLISH_fails_without_metaclass.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
{
@@ -31,4 +31,4 @@ Class::MOP::remove_metaclass_by_name('My
# help us prevent it happening in the future.
is( exception { $object->DESTROY }, undef, 'can call DESTROY on an object without a metaclass object in the CMOP cache (immutable version)' );
-done_testing;
+#done_testing;
Index: t/bugs/Moose_Object_error.t
===================================================================
--- t.orig/bugs/Moose_Object_error.t
+++ t/bugs/Moose_Object_error.t
@@ -5,8 +5,8 @@ use warnings;
use lib 't/lib', 'lib';
-use Test::More;
+use Test::More qw(no_plan);
use_ok('MyMooseObject');
-done_testing;
+#done_testing;
Index: t/bugs/anon_method_metaclass.t
===================================================================
--- t.orig/bugs/anon_method_metaclass.t
+++ t/bugs/anon_method_metaclass.t
@@ -1,6 +1,6 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
{
package Ball;
@@ -47,4 +47,4 @@ for ( 1, 2 ) {
undef $method_meta;
}
-done_testing;
+#done_testing;
Index: t/bugs/application_metarole_compat.t
===================================================================
--- t.orig/bugs/application_metarole_compat.t
+++ t/bugs/application_metarole_compat.t
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
BEGIN {
@@ -54,4 +54,4 @@ BEGIN {
::is( ::exception { extends 'Parent' }, undef );
}
-done_testing;
+#done_testing;
Index: t/bugs/apply_role_to_one_instance_only.t
===================================================================
--- t.orig/bugs/apply_role_to_one_instance_only.t
+++ t/bugs/apply_role_to_one_instance_only.t
@@ -1,7 +1,7 @@
#!/usr/bin/perl
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
{
@@ -41,4 +41,4 @@ is( exception {
is $instance_with_role1->a_role_method, 'foo'
}, undef, 'instance has correct role method' );
-done_testing;
+#done_testing;
Index: t/bugs/augment_recursion_bug.t
===================================================================
--- t.orig/bugs/augment_recursion_bug.t
+++ t/bugs/augment_recursion_bug.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
{
@@ -46,4 +46,4 @@ is($baz->foo,
'Foo::foo(Baz::foo and Foo::foo())',
'... got the right value for 1 augmented subclass calling non-augmented subclass');
-done_testing;
+#done_testing;
Index: t/bugs/coerce_without_coercion.t
===================================================================
--- t.orig/bugs/coerce_without_coercion.t
+++ t/bugs/coerce_without_coercion.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Test::Moose;
@@ -29,4 +29,4 @@ with_immutable {
}
'Foo';
-done_testing;
+#done_testing;
Index: t/bugs/constructor_object_overload.t
===================================================================
--- t.orig/bugs/constructor_object_overload.t
+++ t/bugs/constructor_object_overload.t
@@ -1,7 +1,7 @@
#!/usr/bin/perl
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
{
package Foo;
@@ -17,4 +17,4 @@ use Test::More;
ok(Foo->new()->bug(), 'call constructor on object reference with overloading');
-done_testing;
+#done_testing;
Index: t/bugs/create_anon_recursion.t
===================================================================
--- t.orig/bugs/create_anon_recursion.t
+++ t/bugs/create_anon_recursion.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Moose::Meta::Class;
@@ -21,4 +21,4 @@ TODO:
}, undef, 'Class is created successfully' );
}
-done_testing;
+#done_testing;
Index: t/bugs/handles_foreign_class_bug.t
===================================================================
--- t.orig/bugs/handles_foreign_class_bug.t
+++ t/bugs/handles_foreign_class_bug.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
{
@@ -108,4 +108,4 @@ isa_ok($blart, 'Blart');
is($blart->a, 'Foo::a', '... got the right delgated value');
-done_testing;
+#done_testing;
Index: t/bugs/immutable_metaclass_does_role.t
===================================================================
--- t.orig/bugs/immutable_metaclass_does_role.t
+++ t/bugs/immutable_metaclass_does_role.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
@@ -89,4 +89,4 @@ is( $a->meta->foo, 'i am foo', '... foo
ok( MyClass->meta->meta->does_role('MyRole'), 'metaclass does MyRole' );
is( MyClass->meta->foo, 'i am foo', '... foo method returns expected value' );
-done_testing;
+#done_testing;
Index: t/bugs/immutable_n_default_x2.t
===================================================================
--- t.orig/bugs/immutable_n_default_x2.t
+++ t/bugs/immutable_n_default_x2.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
{
@@ -38,4 +38,4 @@ $foo->bar();
is($Foo::bar_default_called, 1, "bar default was only called once when lazy attribute is accessed");
-done_testing;
+#done_testing;
Index: t/bugs/inheriting_from_roles.t
===================================================================
--- t.orig/bugs/inheriting_from_roles.t
+++ t/bugs/inheriting_from_roles.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
@@ -20,4 +20,4 @@ use Test::Fatal;
}, qr/You cannot inherit from a Moose Role \(My\:\:Role\)/, '... this croaks correctly' );
}
-done_testing;
+#done_testing;
Index: t/bugs/inline_reader_bug.t
===================================================================
--- t.orig/bugs/inline_reader_bug.t
+++ t/bugs/inline_reader_bug.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
@@ -28,4 +28,4 @@ test makes sure it does not creep back i
}, undef, '... this didnt die' );
}
-done_testing;
+#done_testing;
Index: t/bugs/instance_application_role_args.t
===================================================================
--- t.orig/bugs/instance_application_role_args.t
+++ t/bugs/instance_application_role_args.t
@@ -1,7 +1,7 @@
#!/usr/bin/perl
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
{
package Point;
@@ -48,4 +48,4 @@ DoesTranspose->meta->apply( $p, -alias =
is_deeply($p->negated->inspect, [3, 4]);
is_deeply($p->transpose->inspect, [3, 4]);
-done_testing;
+#done_testing;
Index: t/bugs/lazybuild_required_undef.t
===================================================================
--- t.orig/bugs/lazybuild_required_undef.t
+++ t/bugs/lazybuild_required_undef.t
@@ -17,7 +17,7 @@ has 'bar' => ( isa => 'Int | Undef', is
sub _build_foo { undef }
package main;
-use Test::More;
+use Test::More qw(no_plan);
ok ( !defined(Foo->new->bar), 'NonLazyBuild: Undef default' );
ok ( !defined(Foo->new->bar(undef)), 'NonLazyBuild: Undef explicit' );
@@ -27,4 +27,4 @@ ok ( !defined(Foo->new->foo), 'LazyBuild
## This test fails at the time of creation.
ok ( !defined(Foo->new->foo(undef)), 'LazyBuild: Undef explicit' );
-done_testing;
+#done_testing;
Index: t/bugs/moose_octal_defaults.t
===================================================================
--- t.orig/bugs/moose_octal_defaults.t
+++ t/bugs/moose_octal_defaults.t
@@ -1,5 +1,5 @@
#!/usr/bin/env perl
-use Test::More;
+use Test::More qw(no_plan);
{
my $package = qq{
@@ -116,4 +116,4 @@ __PACKAGE__->meta->make_immutable;
::is( $obj->id, '0 but true', 'value is still the same' );
}
-done_testing;
+#done_testing;
Index: t/bugs/reader_precedence_bug.t
===================================================================
--- t.orig/bugs/reader_precedence_bug.t
+++ t/bugs/reader_precedence_bug.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
{
package Foo;
@@ -20,4 +20,4 @@ use Test::More;
is($foo->$reader, 10, "Reader works as expected");
}
-done_testing;
+#done_testing;
Index: t/bugs/role_caller.t
===================================================================
--- t.orig/bugs/role_caller.t
+++ t/bugs/role_caller.t
@@ -11,7 +11,7 @@ package MyClass2; use Moose; with 'MyRol
package main;
-use Test::More;
+use Test::More qw(no_plan);
{
local $TODO = 'Role composition does not clone methods yet';
@@ -24,4 +24,4 @@ use Test::More;
isnt(MyClass1->foo, "MyClass2::foo", "role method is not confused with other class" );
isnt(MyClass2->foo, "MyClass1::foo", "role method is not confused with other class" );
-done_testing;
+#done_testing;
Index: t/bugs/subclass_use_base_bug.t
===================================================================
--- t.orig/bugs/subclass_use_base_bug.t
+++ t/bugs/subclass_use_base_bug.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
=pod
@@ -27,4 +27,4 @@ my $bar = Bar->new;
isa_ok($bar, 'Bar');
isa_ok($bar, 'Foo');
-done_testing;
+#done_testing;
Index: t/bugs/subtype_conflict_bug.t
===================================================================
--- t.orig/bugs/subtype_conflict_bug.t
+++ t/bugs/subtype_conflict_bug.t
@@ -5,9 +5,9 @@ use warnings;
use lib 't/lib', 'lib';
-use Test::More;
+use Test::More qw(no_plan);
use_ok('MyMooseA');
use_ok('MyMooseB');
-done_testing;
+#done_testing;
Index: t/bugs/subtype_quote_bug.t
===================================================================
--- t.orig/bugs/subtype_quote_bug.t
+++ t/bugs/subtype_quote_bug.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
=pod
@@ -33,4 +33,4 @@ be well from now on.
::use_ok('Moose');
}
-done_testing;
+#done_testing;
Index: t/bugs/super_recursion.t
===================================================================
--- t.orig/bugs/super_recursion.t
+++ t/bugs/super_recursion.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
{
package A;
@@ -66,4 +66,4 @@ is( C->new->foo, 'c' );
is( C->new->bar, 'cb' );
is( C->new->baz, 'cba' );
-done_testing;
+#done_testing;
Index: t/bugs/type_constraint_messages.t
===================================================================
--- t.orig/bugs/type_constraint_messages.t
+++ t/bugs/type_constraint_messages.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
@@ -64,4 +64,4 @@ like( exception {
$foo->nt($foo); # scalar
}, qr/Attribute \(nt\) does not pass the type constraint because: blessed/, '... got the right error message' );
-done_testing;
+#done_testing;
Index: t/bugs/universal_methods_wrappable.t
===================================================================
--- t.orig/bugs/universal_methods_wrappable.t
+++ t/bugs/universal_methods_wrappable.t
@@ -2,7 +2,7 @@ use strict;
use warnings;
use Test::Fatal;
-use Test::More;
+use Test::More qw(no_plan);
{
@@ -18,7 +18,7 @@ use Test::More;
package Foo;
use Moose;
- use Test::More; # for $TODO
+ use Test::More qw(no_plan); # for $TODO
local $TODO = 'UNIVERSAL methods should be wrappable';
@@ -28,4 +28,4 @@ use Test::More;
::isa_ok $foo, 'Bar';
}
-done_testing;
+#done_testing;
Index: t/cmop/ArrayBasedStorage_test.t
===================================================================
--- t.orig/cmop/ArrayBasedStorage_test.t
+++ t/cmop/ArrayBasedStorage_test.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use File::Spec;
use Scalar::Util 'reftype';
use Class::MOP;
@@ -201,4 +201,4 @@ my $new_baz = Bar::Baz->new;
cmp_ok( scalar(@$new_baz), ">", scalar(@$baz), "additional slot due to refreshed meta instance" );
-done_testing;
+#done_testing;
Index: t/cmop/AttributesWithHistory_test.t
===================================================================
--- t.orig/cmop/AttributesWithHistory_test.t
+++ t/cmop/AttributesWithHistory_test.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use File::Spec;
use Class::MOP;
@@ -118,4 +118,4 @@ is_deeply(
[ 42, 43, 44, 45, 46 ],
'... still have the correct history for foo');
-done_testing;
+#done_testing;
Index: t/cmop/BinaryTree_test.t
===================================================================
--- t.orig/cmop/BinaryTree_test.t
+++ t/cmop/BinaryTree_test.t
@@ -4,7 +4,7 @@ use warnings;
use FindBin;
use File::Spec::Functions;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Class::MOP;
@@ -329,4 +329,4 @@ sub inOrderTraverse {
'... this should be the reverse of the original');
}
-done_testing;
+#done_testing;
Index: t/cmop/C3MethodDispatchOrder_test.t
===================================================================
--- t.orig/cmop/C3MethodDispatchOrder_test.t
+++ t/cmop/C3MethodDispatchOrder_test.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use File::Spec;
use Class::MOP;
@@ -42,4 +42,4 @@ is_deeply(
is(Diamond_D->hello, 'Diamond_C::hello', '... got the right dispatch order');
is(Diamond_D->can('hello')->(), 'Diamond_C::hello', '... can(method) resolved itself as expected');
-done_testing;
+#done_testing;
Index: t/cmop/ClassEncapsulatedAttributes_test.t
===================================================================
--- t.orig/cmop/ClassEncapsulatedAttributes_test.t
+++ t/cmop/ClassEncapsulatedAttributes_test.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use File::Spec;
use Class::MOP;
@@ -106,4 +106,4 @@ BEGIN {
is($bar->SUPER_foo(), 'Foo::foo', '... got the right default value for Bar::SUPER::foo');
}
-done_testing;
+#done_testing;
Index: t/cmop/Class_C3_compatibility.t
===================================================================
--- t.orig/cmop/Class_C3_compatibility.t
+++ t/cmop/Class_C3_compatibility.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
=pod
@@ -61,4 +61,4 @@ SKIP: {
ok(defined &Diamond_D::hello, '... D does have an alias to the method hello');
}
-done_testing;
+#done_testing;
Index: t/cmop/InsideOutClass_test.t
===================================================================
--- t.orig/cmop/InsideOutClass_test.t
+++ t/cmop/InsideOutClass_test.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use File::Spec;
use Scalar::Util 'reftype';
@@ -221,4 +221,4 @@ is($baz->bling(), 'Baz::bling', '... Bar
is(scalar(keys(%{'Bar::Baz::bling'})), 0, '... got the right number of entries for Bar::Baz::bling');
}
-done_testing;
+#done_testing;
Index: t/cmop/InstanceCountingClass_test.t
===================================================================
--- t.orig/cmop/InstanceCountingClass_test.t
+++ t/cmop/InstanceCountingClass_test.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use File::Spec;
use Class::MOP;
@@ -56,4 +56,4 @@ for (2 .. 10) {
is(Foo->meta->get_count(), 10, '... our Foo count is now 10');
is(Bar->meta->get_count(), 1, '... our Bar count is still 1');
-done_testing;
+#done_testing;
Index: t/cmop/LazyClass_test.t
===================================================================
--- t.orig/cmop/LazyClass_test.t
+++ t/cmop/LazyClass_test.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use File::Spec;
use Class::MOP;
@@ -80,4 +80,4 @@ is($root->right->node(), 2, '... the rig
ok(!exists($root->right->{'left'}), '... left attribute still has not been initialized yet');
ok(!exists($root->right->{'right'}), '... right attribute still has not been initialized yet');
-done_testing;
+#done_testing;
Index: t/cmop/Perl6Attribute_test.t
===================================================================
--- t.orig/cmop/Perl6Attribute_test.t
+++ t/cmop/Perl6Attribute_test.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use File::Spec;
use Class::MOP;
@@ -40,4 +40,4 @@ is($foo->foo, 42, '... Foo.foo == 42');
is_deeply($foo->bar, [], '... Foo.bar == []');
is_deeply($foo->baz, {}, '... Foo.baz == {}');
-done_testing;
+#done_testing;
Index: t/cmop/RT_27329_fix.t
===================================================================
--- t.orig/cmop/RT_27329_fix.t
+++ t/cmop/RT_27329_fix.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Class::MOP;
@@ -44,4 +44,4 @@ is($foo->get_foo, 'BAR', '... got the ri
ok(!defined($clone->get_foo), '... got the right cloned value');
}
-done_testing;
+#done_testing;
Index: t/cmop/RT_39001_fix.t
===================================================================
--- t.orig/cmop/RT_39001_fix.t
+++ t/cmop/RT_39001_fix.t
@@ -1,6 +1,6 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Class::MOP;
@@ -37,4 +37,4 @@ like( exception {
Bar->meta->superclasses('Foo');
}, qr/^Recursive inheritance detected/, "error occurs when Bar extends Foo, when Foo is a Bar" );
-done_testing;
+#done_testing;
Index: t/cmop/RT_41255.t
===================================================================
--- t.orig/cmop/RT_41255.t
+++ t/cmop/RT_41255.t
@@ -1,5 +1,5 @@
use strict;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Class::MOP;
@@ -48,4 +48,4 @@ while (my ($name, $meta_method) = each %
is( exception { $meta_method->execute }, undef );
}
-done_testing;
+#done_testing;
Index: t/cmop/add_attribute_alternate.t
===================================================================
--- t.orig/cmop/add_attribute_alternate.t
+++ t/cmop/add_attribute_alternate.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Class::MOP;
@@ -106,4 +106,4 @@ is($point3d->{'z'}, 3, '... the z attrib
}
-done_testing;
+#done_testing;
Index: t/cmop/add_method_modifier.t
===================================================================
--- t.orig/cmop/add_method_modifier.t
+++ t/cmop/add_method_modifier.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Class::MOP;
@@ -132,4 +132,4 @@ is( $checking_account->balance, 0,
is( $savings_account->balance, 200,
'... got the right savings balance after overdraft withdrawal' );
-done_testing;
+#done_testing;
Index: t/cmop/advanced_methods.t
===================================================================
--- t.orig/cmop/advanced_methods.t
+++ t/cmop/advanced_methods.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Class::MOP;
@@ -150,4 +150,4 @@ is_deeply(
],
'... got the right list of BUILD methods for Foo::Bar::Baz');
-done_testing;
+#done_testing;
Index: t/cmop/anon_class.t
===================================================================
--- t.orig/cmop/anon_class.t
+++ t/cmop/anon_class.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Class::MOP;
@@ -65,4 +65,4 @@ isa_ok($instance_2, ('Class::MOP::Class:
ok(!$instance_2->isa('Foo'), '... but the new instance is not a Foo');
ok(!$instance_2->can('foo'), '... and it can no longer call the foo method');
-done_testing;
+#done_testing;
Index: t/cmop/anon_class_create_init.t
===================================================================
--- t.orig/cmop/anon_class_create_init.t
+++ t/cmop/anon_class_create_init.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Class::MOP;
@@ -147,4 +147,4 @@ my $instance;
ok(!$meta, "weak class is collected once instances go away");
}
-done_testing;
+#done_testing;
Index: t/cmop/anon_class_keep_alive.t
===================================================================
--- t.orig/cmop/anon_class_keep_alive.t
+++ t/cmop/anon_class_keep_alive.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Class::MOP;
@@ -51,4 +51,4 @@ is_deeply([$instance->meta->class_preced
'... Anonymous instance has class precedence list',
);
-done_testing;
+#done_testing;
Index: t/cmop/anon_class_leak.t
===================================================================
--- t.orig/cmop/anon_class_leak.t
+++ t/cmop/anon_class_leak.t
@@ -2,7 +2,7 @@ use strict;
use warnings;
use Class::MOP;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Requires {
'Test::LeakTrace' => '0.01', # skip all if not installed
@@ -21,4 +21,4 @@ leaks_cmp_ok {
}
'<=', $expected, 'create_anon_class(superclass => [...])';
-done_testing;
+#done_testing;
Index: t/cmop/anon_packages.t
===================================================================
--- t.orig/cmop/anon_packages.t
+++ t/cmop/anon_packages.t
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Class::MOP;
@@ -38,4 +38,4 @@ use Class::MOP;
"can't cache anon packages");
}
-done_testing;
+#done_testing;
Index: t/cmop/attribute.t
===================================================================
--- t.orig/cmop/attribute.t
+++ t/cmop/attribute.t
@@ -3,7 +3,7 @@ use warnings;
use Scalar::Util 'reftype', 'blessed';
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Class::MOP;
@@ -245,4 +245,4 @@ isnt( exception { Class::MOP::Attribute-
is($attr->default(42), 42, 'passthrough for default on attribute');
}
-done_testing;
+#done_testing;
Index: t/cmop/attribute_duplication.t
===================================================================
--- t.orig/cmop/attribute_duplication.t
+++ t/cmop/attribute_duplication.t
@@ -3,7 +3,7 @@ use warnings;
use Scalar::Util;
-use Test::More;
+use Test::More qw(no_plan);
use Class::MOP;
@@ -55,4 +55,4 @@ one first.
::is($bar_attr2->reader, 'assign_bar', '... the bar attribute now has the reader assign_bar');
}
-done_testing;
+#done_testing;
Index: t/cmop/attribute_errors_and_edge_cases.t
===================================================================
--- t.orig/cmop/attribute_errors_and_edge_cases.t
+++ t/cmop/attribute_errors_and_edge_cases.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Class::MOP;
@@ -229,4 +229,4 @@ use Class::MOP::Attribute;
}, undef, '... can create accessors with reader/writers' );
}
-done_testing;
+#done_testing;
Index: t/cmop/attribute_get_read_write.t
===================================================================
--- t.orig/cmop/attribute_get_read_write.t
+++ t/cmop/attribute_get_read_write.t
@@ -3,7 +3,7 @@ use warnings;
use Scalar::Util 'blessed', 'reftype';
-use Test::More;
+use Test::More qw(no_plan);
use Class::MOP;
@@ -111,4 +111,4 @@ ok(!$gorch_attr->get_write_method, '...
is($writer->fully_qualified_name, 'Foo::__ANON__', '... it is the sub we are looking for');
}
-done_testing;
+#done_testing;
Index: t/cmop/attribute_initializer.t
===================================================================
--- t.orig/cmop/attribute_initializer.t
+++ t/cmop/attribute_initializer.t
@@ -3,7 +3,7 @@ use warnings;
use Scalar::Util 'blessed', 'reftype';
-use Test::More;
+use Test::More qw(no_plan);
use Class::MOP;
@@ -49,4 +49,4 @@ isa_ok($bar, 'Class::MOP::Attribute');
ok($bar->has_initializer, '... bar has an initializer');
is(reftype $bar->initializer, 'CODE', '... the initializer is a CODE ref');
-done_testing;
+#done_testing;
Index: t/cmop/attribute_introspection.t
===================================================================
--- t.orig/cmop/attribute_introspection.t
+++ t/cmop/attribute_introspection.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Class::MOP;
@@ -130,4 +130,4 @@ use Class::MOP;
# bored I will do it.
}
-done_testing;
+#done_testing;
Index: t/cmop/attribute_non_alpha_name.t
===================================================================
--- t.orig/cmop/attribute_non_alpha_name.t
+++ t/cmop/attribute_non_alpha_name.t
@@ -3,7 +3,7 @@ use warnings;
use Class::MOP;
-use Test::More;
+use Test::More qw(no_plan);
{
package Foo;
@@ -31,4 +31,4 @@ use Test::More;
unless $meta->is_immutable;
}
-done_testing;
+#done_testing;
Index: t/cmop/attributes.t
===================================================================
--- t.orig/cmop/attributes.t
+++ t/cmop/attributes.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Class::MOP;
@@ -259,4 +259,4 @@ for(1 .. 2){
Buzz->meta->make_immutable();
}
-done_testing;
+#done_testing;
Index: t/cmop/basic.t
===================================================================
--- t.orig/cmop/basic.t
+++ t/cmop/basic.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Class::MOP;
@@ -77,4 +77,4 @@ is_deeply(
[ 'Baz', 'Bar', 'Foo', 'UNIVERSAL' ],
'... Baz->class_precedence_list == (Baz, Bar, Foo, UNIVERSAL)');
-done_testing;
+#done_testing;
Index: t/cmop/before_after_dollar_under.t
===================================================================
--- t.orig/cmop/before_after_dollar_under.t
+++ t/cmop/before_after_dollar_under.t
@@ -3,7 +3,7 @@ use warnings;
use Class::MOP;
use Class::MOP::Class;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
my %results;
@@ -67,4 +67,4 @@ for my $wrap (qw(before after)) {
);
}
-done_testing;
+#done_testing;
Index: t/cmop/class_errors_and_edge_cases.t
===================================================================
--- t.orig/cmop/class_errors_and_edge_cases.t
+++ t/cmop/class_errors_and_edge_cases.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Class::MOP;
@@ -220,4 +220,4 @@ use Class::MOP;
}, undef, '... remove_package_symbol dies as expected' );
}
-done_testing;
+#done_testing;
Index: t/cmop/class_is_pristine.t
===================================================================
--- t.orig/cmop/class_is_pristine.t
+++ t/cmop/class_is_pristine.t
@@ -2,7 +2,7 @@ use strict;
use warnings;
use Class::MOP;
-use Test::More;
+use Test::More qw(no_plan);
{
package Foo;
@@ -20,4 +20,4 @@ ok( $meta->is_pristine, 'Foo is still pr
$meta->add_attribute( name => 'attr', reader => 'get_attr' );
ok( ! $meta->is_pristine, 'Foo is not pristine after add_attribute' );
-done_testing;
+#done_testing;
Index: t/cmop/class_precedence_list.t
===================================================================
--- t.orig/cmop/class_precedence_list.t
+++ t/cmop/class_precedence_list.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Class::MOP;
use Class::MOP::Class;
@@ -157,4 +157,4 @@ is_deeply(
[ @CLASS_PRECEDENCE_LIST ],
'... Foo::Bar::Baz->meta->class_precedence_list == @CLASS_PRECEDENCE_LIST');
-done_testing;
+#done_testing;
Index: t/cmop/constant_codeinfo.t
===================================================================
--- t.orig/cmop/constant_codeinfo.t
+++ t/cmop/constant_codeinfo.t
@@ -1,6 +1,6 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Class::MOP;
@@ -19,4 +19,4 @@ undef $syms;
$syms = $meta->get_all_package_symbols('CODE');
is(ref $syms->{FOO}, 'CODE', 'constant symbol still there, although we dropped our reference');
-done_testing;
+#done_testing;
Index: t/cmop/create_class.t
===================================================================
--- t.orig/cmop/create_class.t
+++ t/cmop/create_class.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Class::MOP;
@@ -110,4 +110,4 @@ is($point3d->{'z'}, 3, '... the z attrib
}
-done_testing;
+#done_testing;
Index: t/cmop/custom_instance.t
===================================================================
--- t.orig/cmop/custom_instance.t
+++ t/cmop/custom_instance.t
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Class::MOP;
@@ -135,4 +135,4 @@ like( exception { BadFoo::Sub->new }, qr
}
}
-done_testing;
+#done_testing;
Index: t/cmop/deprecated.t
===================================================================
--- t.orig/cmop/deprecated.t
+++ t/cmop/deprecated.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Carp;
@@ -70,4 +70,4 @@ $SIG{__WARN__} = \&croak;
);
}
-done_testing;
+#done_testing;
Index: t/cmop/get_code_info.t
===================================================================
--- t.orig/cmop/get_code_info.t
+++ t/cmop/get_code_info.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Sub::Name 'subname';
BEGIN {
@@ -49,4 +49,4 @@ code_name_is( \&Class::MOP::Method::name
sub foo : Bar {}
}
-done_testing;
+#done_testing;
Index: t/cmop/immutable_custom_trait.t
===================================================================
--- t.orig/cmop/immutable_custom_trait.t
+++ t/cmop/immutable_custom_trait.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Class::MOP;
@@ -73,4 +73,4 @@ use Class::MOP;
);
}
-done_testing;
+#done_testing;
Index: t/cmop/immutable_metaclass.t
===================================================================
--- t.orig/cmop/immutable_metaclass.t
+++ t/cmop/immutable_metaclass.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Class::MOP;
@@ -295,4 +295,4 @@ use Class::MOP;
);
}
-done_testing;
+#done_testing;
Index: t/cmop/immutable_w_constructors.t
===================================================================
--- t.orig/cmop/immutable_w_constructors.t
+++ t/cmop/immutable_w_constructors.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Class::MOP;
@@ -298,4 +298,4 @@ use Class::MOP;
}
-done_testing;
+#done_testing;
Index: t/cmop/immutable_w_custom_metaclass.t
===================================================================
--- t.orig/cmop/immutable_w_custom_metaclass.t
+++ t/cmop/immutable_w_custom_metaclass.t
@@ -4,7 +4,7 @@ use warnings;
use FindBin;
use File::Spec::Functions;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Scalar::Util;
@@ -71,4 +71,4 @@ use lib catdir( $FindBin::Bin, 'lib' );
ok( $meta->is_mutable, '... Baz is mutable again' );
}
-done_testing;
+#done_testing;
Index: t/cmop/inline_and_dollar_at.t
===================================================================
--- t.orig/cmop/inline_and_dollar_at.t
+++ t/cmop/inline_and_dollar_at.t
@@ -1,6 +1,6 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Class::MOP;
@@ -16,4 +16,4 @@ use Class::MOP;
::is( $@, 'dollar at', '$@ is untouched after immutablization' );
}
-done_testing;
+#done_testing;
Index: t/cmop/inline_structor.t
===================================================================
--- t.orig/cmop/inline_structor.t
+++ t/cmop/inline_structor.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Requires {
'Test::Output' => '0.01', # skip all if not installed
@@ -291,4 +291,4 @@ use Class::MOP;
);
}
-done_testing;
+#done_testing;
Index: t/cmop/insertion_order.t
===================================================================
--- t.orig/cmop/insertion_order.t
+++ t/cmop/insertion_order.t
@@ -1,6 +1,6 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Class::MOP;
my $Point = Class::MOP::Class->create('Point' => (
@@ -32,4 +32,4 @@ my $Point = Class::MOP::Class->create('P
is($Point->get_attribute('x')->insertion_order, 0, 'Insertion order of Attribute "x"');
is($Point->get_attribute('y')->insertion_order, 1, 'Insertion order of Attribute "y"');
-done_testing;
+#done_testing;
Index: t/cmop/instance.t
===================================================================
--- t.orig/cmop/instance.t
+++ t/cmop/instance.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Scalar::Util qw/isweak reftype/;
@@ -136,4 +136,4 @@ ok(!$mi_foo->is_slot_initialized( $i_foo
ok(!defined($mi_foo->get_slot_value( $i_foo, "moosen" )), "... no value for slot");
-done_testing;
+#done_testing;
Index: t/cmop/instance_inline.t
===================================================================
--- t.orig/cmop/instance_inline.t
+++ t/cmop/instance_inline.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Class::MOP::Instance;
@@ -45,4 +45,4 @@ my $C = 'Class::MOP::Instance';
'... got the right code for rebless_instance_structure');
}
-done_testing;
+#done_testing;
Index: t/cmop/instance_metaclass_incompat.t
===================================================================
--- t.orig/cmop/instance_metaclass_incompat.t
+++ t/cmop/instance_metaclass_incompat.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use metaclass;
@@ -63,4 +63,4 @@ eval {
};
ok(!$@, '... FooBar2.meta => FooBar::Meta is compatible') || diag $@;
-done_testing;
+#done_testing;
Index: t/cmop/instance_metaclass_incompat_dyn.t
===================================================================
--- t.orig/cmop/instance_metaclass_incompat_dyn.t
+++ t/cmop/instance_metaclass_incompat_dyn.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use metaclass;
@@ -63,4 +63,4 @@ eval {
};
ok(!$@, '... FooBar2.meta => FooBar::Meta is compatible') || diag $@;
-done_testing;
+#done_testing;
Index: t/cmop/load.t
===================================================================
--- t.orig/cmop/load.t
+++ t/cmop/load.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
BEGIN {
use_ok('Class::MOP');
@@ -150,4 +150,4 @@ is(
isa_ok(Class::MOP::Class->meta, 'Class::MOP::Class');
-done_testing;
+#done_testing;
Index: t/cmop/load_class.t
===================================================================
--- t.orig/cmop/load_class.t
+++ t/cmop/load_class.t
@@ -4,7 +4,7 @@ use warnings;
use FindBin;
use File::Spec::Functions;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Class::MOP;
@@ -173,4 +173,4 @@ like( exception {
}
-done_testing;
+#done_testing;
Index: t/cmop/load_class_gvstash_detect_bug.t
===================================================================
--- t.orig/cmop/load_class_gvstash_detect_bug.t
+++ t/cmop/load_class_gvstash_detect_bug.t
@@ -4,7 +4,7 @@ use warnings;
use FindBin;
use File::Spec::Functions;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Class::MOP;
@@ -25,4 +25,4 @@ is( exception {
TestClassLoaded->a_method;
}, undef );
-done_testing;
+#done_testing;
Index: t/cmop/magic.t
===================================================================
--- t.orig/cmop/magic.t
+++ t/cmop/magic.t
@@ -4,7 +4,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Class::MOP;
@@ -72,4 +72,4 @@ use Tie::Scalar;
}, undef );
}
-done_testing;
+#done_testing;
Index: t/cmop/make_mutable.t
===================================================================
--- t.orig/cmop/make_mutable.t
+++ t/cmop/make_mutable.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Scalar::Util;
@@ -217,4 +217,4 @@ use Class::MOP;
Bar->meta->make_mutable;
}
-done_testing;
+#done_testing;
Index: t/cmop/meta_method.t
===================================================================
--- t.orig/cmop/meta_method.t
+++ t/cmop/meta_method.t
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Class::MOP;
@@ -64,4 +64,4 @@ use Class::MOP;
is( exception { $meta->class_precedence_list }, undef, "can do meta-level stuff" );
}
-done_testing;
+#done_testing;
Index: t/cmop/meta_package.t
===================================================================
--- t.orig/cmop/meta_package.t
+++ t/cmop/meta_package.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Class::MOP;
@@ -277,4 +277,4 @@ is(Foo->meta->get_package_symbol('@foo')
);
}
-done_testing;
+#done_testing;
Index: t/cmop/meta_package_extension.t
===================================================================
--- t.orig/cmop/meta_package_extension.t
+++ t/cmop/meta_package_extension.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Class::MOP;
@@ -92,4 +92,4 @@ is( exception {
ok(!defined($Foo::{baz}), '... the %baz slot has still not been created');
-done_testing;
+#done_testing;
Index: t/cmop/metaclass.t
===================================================================
--- t.orig/cmop/metaclass.t
+++ t/cmop/metaclass.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use metaclass;
@@ -55,4 +55,4 @@ eval {
};
ok($@, '... metaclasses must be subclass of Class::MOP::Class');
-done_testing;
+#done_testing;
Index: t/cmop/metaclass_incompatibility.t
===================================================================
--- t.orig/cmop/metaclass_incompatibility.t
+++ t/cmop/metaclass_incompatibility.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use metaclass;
@@ -253,4 +253,4 @@ is( exception {
is(Weird::Class::Sub->meta->destructor_class, 'Weird::Meta::Method::Destructor',
"got the right destructor class");
-done_testing;
+#done_testing;
Index: t/cmop/metaclass_incompatibility_dyn.t
===================================================================
--- t.orig/cmop/metaclass_incompatibility_dyn.t
+++ t/cmop/metaclass_incompatibility_dyn.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use metaclass;
@@ -63,4 +63,4 @@ eval {
};
ok(!$@, '... FooBar2.meta => FooBar::Meta is compatible') || diag $@;
-done_testing;
+#done_testing;
Index: t/cmop/metaclass_inheritance.t
===================================================================
--- t.orig/cmop/metaclass_inheritance.t
+++ t/cmop/metaclass_inheritance.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Class::MOP;
@@ -42,4 +42,4 @@ is($baz_meta->name, 'Baz', '... baz_meta
isnt($baz_meta, $bar_meta, '... Baz->meta != Bar->meta');
isnt($baz_meta, $foo_meta, '... Baz->meta != Foo->meta');
-done_testing;
+#done_testing;
Index: t/cmop/metaclass_loads_classes.t
===================================================================
--- t.orig/cmop/metaclass_loads_classes.t
+++ t/cmop/metaclass_loads_classes.t
@@ -4,7 +4,7 @@ use warnings;
use FindBin;
use File::Spec::Functions;
-use Test::More;
+use Test::More qw(no_plan);
use Class::MOP;
@@ -38,4 +38,4 @@ ok(Class::MOP::is_class_loaded('MyMetaCl
is($meta->method_metaclass, 'MyMetaClass::Method', '... Correct method metaclass');
ok(Class::MOP::is_class_loaded('MyMetaClass::Method'), '... method metaclass loaded');
-done_testing;
+#done_testing;
Index: t/cmop/metaclass_reinitialize.t
===================================================================
--- t.orig/cmop/metaclass_reinitialize.t
+++ t/cmop/metaclass_reinitialize.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
{
@@ -202,4 +202,4 @@ is($meta->get_method('foo')->foo, 'TEST'
can_ok($meta->get_attribute('bar'), 'oof');
is($meta->get_attribute('bar')->oof, 'TSET');
-done_testing;
+#done_testing;
Index: t/cmop/method.t
===================================================================
--- t.orig/cmop/method.t
+++ t/cmop/method.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Class::MOP;
@@ -146,4 +146,4 @@ is($wrapped->name, '__ANON__', 'method n
my $wrapped2 = Method::Subclass->wrap($method, foo => 'baz', name => 'FOO');
is($wrapped2->name, 'FOO', 'got a new method name');
-done_testing;
+#done_testing;
Index: t/cmop/method_modifiers.t
===================================================================
--- t.orig/cmop/method_modifiers.t
+++ t/cmop/method_modifiers.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Class::MOP;
@@ -200,4 +200,4 @@ use Class::MOP::Method;
'check around_modifiers' );
}
-done_testing;
+#done_testing;
Index: t/cmop/methods.t
===================================================================
--- t.orig/cmop/methods.t
+++ t/cmop/methods.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Scalar::Util qw/reftype/;
@@ -404,4 +404,4 @@ is_deeply(
}
-done_testing;
+#done_testing;
Index: t/cmop/modify_parent_method.t
===================================================================
--- t.orig/cmop/modify_parent_method.t
+++ t/cmop/modify_parent_method.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Class::MOP;
@@ -98,4 +98,4 @@ TODO: {
);
}
-done_testing;
+#done_testing;
Index: t/cmop/new_and_clone_metaclasses.t
===================================================================
--- t.orig/cmop/new_and_clone_metaclasses.t
+++ t/cmop/new_and_clone_metaclasses.t
@@ -4,7 +4,7 @@ use warnings;
use FindBin;
use File::Spec::Functions;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Class::MOP;
@@ -124,4 +124,4 @@ is($attr->associated_class,
$attr_clone->associated_class,
'... we successfully did not clone our associated metaclass');
-done_testing;
+#done_testing;
Index: t/cmop/null_stash.t
===================================================================
--- t.orig/cmop/null_stash.t
+++ t/cmop/null_stash.t
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Class::MOP;
my $non = Class::MOP::Class->initialize('Non::Existent::Package');
@@ -9,4 +9,4 @@ $non->get_method('foo');
pass("empty stashes don't segfault");
-done_testing;
+#done_testing;
Index: t/cmop/numeric_defaults.t
===================================================================
--- t.orig/cmop/numeric_defaults.t
+++ t/cmop/numeric_defaults.t
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use B;
use Class::MOP;
@@ -122,4 +122,4 @@ for my $default (@string_defaults) {
}
}
-done_testing;
+#done_testing;
Index: t/cmop/package_variables.t
===================================================================
--- t.orig/cmop/package_variables.t
+++ t/cmop/package_variables.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Class::MOP;
@@ -227,4 +227,4 @@ is(Foo->meta->get_package_symbol('@foo')
ok(defined(*{"Foo::foo"}{ARRAY}), '... the @foo slot has NOT been removed');
}
-done_testing;
+#done_testing;
Index: t/cmop/random_eval_bug.t
===================================================================
--- t.orig/cmop/random_eval_bug.t
+++ t/cmop/random_eval_bug.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Class::MOP;
@@ -47,4 +47,4 @@ eval {
};
ok( $@, '... we die correctly with bad args' );
-done_testing;
+#done_testing;
Index: t/cmop/rebless_instance.t
===================================================================
--- t.orig/cmop/rebless_instance.t
+++ t/cmop/rebless_instance.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Scalar::Util 'blessed';
@@ -92,4 +92,4 @@ ok($bar->meta->has_method('parent'), 'me
is(blessed($bar->meta->new_object), 'Parent', 'new_object gives a Parent');
-done_testing;
+#done_testing;
Index: t/cmop/rebless_instance_away.t
===================================================================
--- t.orig/cmop/rebless_instance_away.t
+++ t/cmop/rebless_instance_away.t
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Class::MOP;
my @calls;
@@ -42,4 +42,4 @@ is($calls[0][3], 'foo');
is($calls[0][4], 1);
splice @calls;
-done_testing;
+#done_testing;
Index: t/cmop/rebless_overload.t
===================================================================
--- t.orig/cmop/rebless_overload.t
+++ t/cmop/rebless_overload.t
@@ -1,6 +1,6 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Class::MOP;
do {
@@ -24,4 +24,4 @@ my $meta = Class::MOP::Class->initialize
$meta->rebless_instance($without);
is("$without", "overloaded", "overloading after reblessing works");
-done_testing;
+#done_testing;
Index: t/cmop/rebless_with_extra_params.t
===================================================================
--- t.orig/cmop/rebless_with_extra_params.t
+++ t/cmop/rebless_with_extra_params.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Class::MOP;
@@ -92,4 +92,4 @@ use Class::MOP;
ok(!exists($foo->{baz}), '... and the baz attribute was deinitialized');
}
-done_testing;
+#done_testing;
Index: t/cmop/scala_style_mixin_composition.t
===================================================================
--- t.orig/cmop/scala_style_mixin_composition.t
+++ t/cmop/scala_style_mixin_composition.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Requires {
'SUPER' => 1.10, # skip all if not installed
@@ -170,4 +170,4 @@ is($colored_point_3d->toString(),
'x = 1, y = 2, z = 3, col = blue',
'... got the right toString method');
-done_testing;
+#done_testing;
Index: t/cmop/self_introspection.t
===================================================================
--- t.orig/cmop/self_introspection.t
+++ t/cmop/self_introspection.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Class::MOP;
@@ -357,4 +357,4 @@ is($class_mop_class_meta->attribute_meta
is($class_mop_class_meta->method_metaclass, 'Class::MOP::Method', '... got the right value for method_metaclass');
is($class_mop_class_meta->instance_metaclass, 'Class::MOP::Instance', '... got the right value for instance_metaclass');
-done_testing;
+#done_testing;
Index: t/cmop/subclasses.t
===================================================================
--- t.orig/cmop/subclasses.t
+++ t/cmop/subclasses.t
@@ -1,6 +1,6 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Class::MOP;
do {
@@ -42,4 +42,4 @@ is_deeply([sort Son->meta->direct_subcla
is_deeply([sort Daughter->meta->direct_subclasses], []);
is_deeply([sort Cousin->meta->direct_subclasses], []);
-done_testing;
+#done_testing;
Index: t/cmop/subname.t
===================================================================
--- t.orig/cmop/subname.t
+++ t/cmop/subname.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Class::MOP;
@@ -39,4 +39,4 @@ is( Foo->bar, "Origin::bar", "caller agg
is( Origin->bar, "Origin::bar", "unrelated class untouched" );
-done_testing;
+#done_testing;
Index: t/cmop/universal_methods.t
===================================================================
--- t.orig/cmop/universal_methods.t
+++ t/cmop/universal_methods.t
@@ -5,7 +5,7 @@ use warnings;
# UNIVERSAL methods
-use Test::More;
+use Test::More qw(no_plan);
use Class::MOP;
my $meta_class = Class::MOP::Class->create_anon_class;
@@ -21,4 +21,4 @@ TODO: {
}
};
-done_testing;
+#done_testing;
Index: t/compat/composite_metaroles.t
===================================================================
--- t.orig/compat/composite_metaroles.t
+++ t/compat/composite_metaroles.t
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Test::Moose;
@@ -42,4 +42,4 @@ with_immutable {
does_ok(Child->meta, 'Bar::Role');
} 'Parent', 'Child';
-done_testing;
+#done_testing;
Index: t/compat/extends_nonmoose_that_isa_moose_with_metarole.t
===================================================================
--- t.orig/compat/extends_nonmoose_that_isa_moose_with_metarole.t
+++ t/compat/extends_nonmoose_that_isa_moose_with_metarole.t
@@ -1,6 +1,6 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Class::MOP ();
{
@@ -21,7 +21,7 @@ use Class::MOP ();
{
package SubSubClassUseBase;
use Moose;
- use Test::More;
+ use Test::More qw(no_plan);
use Test::Fatal;
is( exception {
extends 'SubClassUseBase';
@@ -52,7 +52,7 @@ Class::MOP::remove_metaclass_by_name('Su
{
package MultiParent1;
use Moose;
- use Test::More;
+ use Test::More qw(no_plan);
use Test::Fatal;
is( exception {
extends qw( SubClassUseBase OtherSubClassUseBase );
@@ -71,7 +71,7 @@ Class::MOP::remove_metaclass_by_name($_)
{
package MultiParent2;
use Moose;
- use Test::More;
+ use Test::More qw(no_plan);
use Test::Fatal;
is( exception {
extends qw( OtherSubClassUseBase SubClassUseBase );
@@ -90,7 +90,7 @@ Class::MOP::remove_metaclass_by_name($_)
{
package MultiParent3;
use Moose;
- use Test::More;
+ use Test::More qw(no_plan);
use Test::Fatal;
is( exception {
extends qw( OtherClass SubClassUseBase );
@@ -109,7 +109,7 @@ Class::MOP::remove_metaclass_by_name($_)
{
package MultiParent4;
use Moose;
- use Test::More;
+ use Test::More qw(no_plan);
use Test::Fatal;
is( exception {
extends qw( SubClassUseBase OtherClass );
@@ -128,7 +128,7 @@ Class::MOP::remove_metaclass_by_name($_)
{
package MultiChild1;
use Moose;
- use Test::More;
+ use Test::More qw(no_plan);
use Test::Fatal;
is( exception {
extends 'MultiParent1';
@@ -147,7 +147,7 @@ Class::MOP::remove_metaclass_by_name($_)
{
package MultiChild2;
use Moose;
- use Test::More;
+ use Test::More qw(no_plan);
use Test::Fatal;
is( exception {
extends 'MultiParent2';
@@ -166,7 +166,7 @@ Class::MOP::remove_metaclass_by_name($_)
{
package MultiChild3;
use Moose;
- use Test::More;
+ use Test::More qw(no_plan);
use Test::Fatal;
is( exception {
extends 'MultiParent3';
@@ -185,7 +185,7 @@ Class::MOP::remove_metaclass_by_name($_)
{
package MultiChild4;
use Moose;
- use Test::More;
+ use Test::More qw(no_plan);
use Test::Fatal;
is( exception {
extends 'MultiParent4';
@@ -201,4 +201,4 @@ Class::MOP::remove_metaclass_by_name($_)
Class::MOP::remove_metaclass_by_name($_)
for qw( SubClassUseBase OtherSubClassUseBase );
-done_testing;
+#done_testing;
Index: t/compat/foreign_inheritence.t
===================================================================
--- t.orig/compat/foreign_inheritence.t
+++ t/compat/foreign_inheritence.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
@@ -87,4 +87,4 @@ is( exception {
SubClass2->meta->superclasses('MyBase');
}, undef, 'Can subclass the same non-Moose class twice with different metaclasses' );
-done_testing;
+#done_testing;
Index: t/compat/module_refresh_compat.t
===================================================================
--- t.orig/compat/module_refresh_compat.t
+++ t/compat/module_refresh_compat.t
@@ -5,7 +5,7 @@ use warnings;
use lib 't/lib', 'lib';
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use File::Spec;
@@ -89,4 +89,4 @@ ok(TestBaz->isa('Foo'), '... TestBaz is
unlink $test_module_file;
-done_testing;
+#done_testing;
Index: t/compat/moose_respects_base.t
===================================================================
--- t.orig/compat/moose_respects_base.t
+++ t/compat/moose_respects_base.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
=pod
@@ -45,4 +45,4 @@ isa_ok($baz, 'Baz');
isa_ok($baz, 'Foo');
isa_ok($baz, 'Moose::Object');
-done_testing;
+#done_testing;
Index: t/examples/Child_Parent_attr_inherit.t
===================================================================
--- t.orig/examples/Child_Parent_attr_inherit.t
+++ t/examples/Child_Parent_attr_inherit.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
=pod
@@ -135,4 +135,4 @@ is( $orphan->last_name, $parent2->last_n
. $parent2->last_name
. ')' );
-done_testing;
+#done_testing;
Index: t/examples/example1.t
===================================================================
--- t.orig/examples/example1.t
+++ t/examples/example1.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
## Roles
@@ -124,4 +124,4 @@ ok($at_least_10_chars->does('Constraint:
ok(!defined($at_least_10_chars->validate('barrrrrrrrr')), '... validated correctly');
is($at_least_10_chars->validate('bar'), 'must be at least 10 chars', '... validation failed correctly');
-done_testing;
+#done_testing;
Index: t/examples/example2.t
===================================================================
--- t.orig/examples/example2.t
+++ t/examples/example2.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
sub U {
@@ -154,4 +154,4 @@ sub Y {
is($coll2->print, '1, 4, 9, 16, 25, 36, 49, 64, 81, 100', '... new collection is changed');
}
-done_testing;
+#done_testing;
Index: t/examples/example_Moose_POOP.t
===================================================================
--- t.orig/examples/example_Moose_POOP.t
+++ t/examples/example_Moose_POOP.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Requires {
'DBM::Deep' => '1.0003', # skip all if not installed
@@ -434,4 +434,4 @@ MooseX::POOP::Meta::Instance->_reload_db
}
-done_testing;
+#done_testing;
Index: t/examples/example_Protomoose.t
===================================================================
--- t.orig/examples/example_Protomoose.t
+++ t/examples/example_Protomoose.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
=pod
@@ -280,4 +280,4 @@ is($foo->bar, 300, '... still got the or
is(Foo->bar, 100, '... still got the original value stored in the prototype (through the Foo class)');
is(Bar->bar, 100, '... still got the original value stored in the prototype (through the Bar class)');
-done_testing;
+#done_testing;
Index: t/examples/example_w_DCS.t
===================================================================
--- t.orig/examples/example_w_DCS.t
+++ t/examples/example_w_DCS.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
=pod
@@ -89,4 +89,4 @@ isnt( exception {
$foo->baz({});
}, undef, '... validation failed correctly' );
-done_testing;
+#done_testing;
Index: t/examples/example_w_TestDeep.t
===================================================================
--- t.orig/examples/example_w_TestDeep.t
+++ t/examples/example_w_TestDeep.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
=pod
@@ -73,4 +73,4 @@ isnt( exception {
$foo->bar([{ foo => 3 }]);
}, undef, '... validation failed correctly' );
-done_testing;
+#done_testing;
Index: t/examples/record_set_iterator.t
===================================================================
--- t.orig/examples/record_set_iterator.t
+++ t/examples/record_set_iterator.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
{
@@ -113,4 +113,4 @@ $rsi->get_next_record;
is($rsi->first_name, 'Jim', '... got the right first name');
is($rsi->last_name, 'Johnson', '... got the right last name');
-done_testing;
+#done_testing;
Index: t/immutable/apply_roles_to_immutable.t
===================================================================
--- t.orig/immutable/apply_roles_to_immutable.t
+++ t/immutable/apply_roles_to_immutable.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
@@ -37,4 +37,4 @@ is( exception {
is($foo->baz, 'My::Role::baz(Foo::baz)', '... got the right value');
-done_testing;
+#done_testing;
Index: t/immutable/buildargs.t
===================================================================
--- t.orig/immutable/buildargs.t
+++ t/immutable/buildargs.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
{
package Foo;
@@ -44,4 +44,4 @@ foreach my $class qw(Foo Bar) {
}
}
-done_testing;
+#done_testing;
Index: t/immutable/constructor_is_not_moose.t
===================================================================
--- t.orig/immutable/constructor_is_not_moose.t
+++ t/immutable/constructor_is_not_moose.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Requires {
'Test::Output' => '0.01', # skip all if not installed
@@ -102,4 +102,4 @@ is(
);
}
-done_testing;
+#done_testing;
Index: t/immutable/constructor_is_wrapped.t
===================================================================
--- t.orig/immutable/constructor_is_wrapped.t
+++ t/immutable/constructor_is_wrapped.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Requires {
'Test::Output' => '0.01', # skip all if not installed
@@ -29,4 +29,4 @@ use Test::Requires {
);
}
-done_testing;
+#done_testing;
Index: t/immutable/default_values.t
===================================================================
--- t.orig/immutable/default_values.t
+++ t/immutable/default_values.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
{
@@ -78,4 +78,4 @@ is( $bar->buz, q{"'\\},
is( $bar->faz, qq{\0},
'default value for faz attr' );
-done_testing;
+#done_testing;
Index: t/immutable/definition_context.t
===================================================================
--- t.orig/immutable/definition_context.t
+++ t/immutable/definition_context.t
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
{
@@ -80,4 +80,4 @@ use Test::Fatal;
}
}
-done_testing;
+#done_testing;
Index: t/immutable/immutable_constructor_error.t
===================================================================
--- t.orig/immutable/immutable_constructor_error.t
+++ t/immutable/immutable_constructor_error.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
@@ -29,4 +29,4 @@ like( exception { Foo->new($scalar) }, q
like( exception { Foo->new(\$scalar) }, qr/\QSingle parameters to new() must be a HASH ref/, 'Scalar ref provided to immutable constructor gives useful error message' );
like( exception { Foo->new(undef) }, qr/\QSingle parameters to new() must be a HASH ref/, 'undef provided to immutable constructor gives useful error message' );
-done_testing;
+#done_testing;
Index: t/immutable/immutable_destroy.t
===================================================================
--- t.orig/immutable/immutable_destroy.t
+++ t/immutable/immutable_destroy.t
@@ -1,6 +1,6 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
{
package FooBar;
@@ -18,4 +18,4 @@ my $f = FooBar->new( name => 'SUSAN' );
is( $f->DESTROY, 'SUSAN', 'Did moose overload DESTROY?' );
-done_testing;
+#done_testing;
Index: t/immutable/immutable_meta_class.t
===================================================================
--- t.orig/immutable/immutable_meta_class.t
+++ t/immutable/immutable_meta_class.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
@@ -24,4 +24,4 @@ is( exception {
My::Meta->meta()->make_immutable(debug => 0)
}, undef, '... can make a meta class immutable' );
-done_testing;
+#done_testing;
Index: t/immutable/immutable_metaclass_with_traits.t
===================================================================
--- t.orig/immutable/immutable_metaclass_with_traits.t
+++ t/immutable/immutable_metaclass_with_traits.t
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
{
package FooTrait;
@@ -34,4 +34,4 @@ is(Class::MOP::class_of($meta), $meta->m
isa_ok(Class::MOP::class_of($meta), 'Moose::Meta::Class');
ok($meta->meta->does_role('FooTrait'), "still does the trait after immutable");
-done_testing;
+#done_testing;
Index: t/immutable/immutable_moose.t
===================================================================
--- t.orig/immutable/immutable_moose.t
+++ t/immutable/immutable_moose.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Moose::Meta::Role;
@@ -83,4 +83,4 @@ Nothing here yet, but soon :)
=cut
-done_testing;
+#done_testing;
Index: t/immutable/immutable_roundtrip.t
===================================================================
--- t.orig/immutable/immutable_roundtrip.t
+++ t/immutable/immutable_roundtrip.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Requires {
'Test::Output' => '0.01', # skip all if not installed
@@ -35,4 +35,4 @@ use Test::Requires {
);
}
-done_testing;
+#done_testing;
Index: t/immutable/immutable_trigger_from_constructor.t
===================================================================
--- t.orig/immutable/immutable_trigger_from_constructor.t
+++ t/immutable/immutable_trigger_from_constructor.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
@@ -35,4 +35,4 @@ like ($@, qr/^Pulling the Baz trigger/,
is( exception { AClass->new(bar => 'bar') }, undef, '... no triggers called' );
-done_testing;
+#done_testing;
Index: t/immutable/inline_fallbacks.t
===================================================================
--- t.orig/immutable/inline_fallbacks.t
+++ t/immutable/inline_fallbacks.t
@@ -1,6 +1,6 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
{
package Foo;
@@ -67,4 +67,4 @@ Bar->meta->make_immutable;
Bar::Sub2->new;
is($BAR, 1, 'DEMOLISH in subclass was called');
-done_testing;
+#done_testing;
Index: t/immutable/inlined_constructors_n_types.t
===================================================================
--- t.orig/immutable/inlined_constructors_n_types.t
+++ t/immutable/inlined_constructors_n_types.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
=pod
@@ -59,4 +59,4 @@ for (1..2) {
Foo->meta->make_immutable(debug => 0) unless $is_immutable;
}
-done_testing;
+#done_testing;
Index: t/immutable/multiple_demolish_inline.t
===================================================================
--- t.orig/immutable/multiple_demolish_inline.t
+++ t/immutable/multiple_demolish_inline.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
@@ -44,4 +44,4 @@ is( exception {
is( Foo->meta->get_method('DESTROY')->package_name, 'Foo',
'Foo has a DESTROY method in the Bar class (not inherited)' );
-done_testing;
+#done_testing;
Index: t/metaclasses/create_anon_with_required_attr.t
===================================================================
--- t.orig/metaclasses/create_anon_with_required_attr.t
+++ t/metaclasses/create_anon_with_required_attr.t
@@ -6,7 +6,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
{
@@ -85,4 +85,4 @@ isnt( exception {
die $@ if $@;
}, undef, 'failed to use trait without required attr' );
-done_testing;
+#done_testing;
Index: t/metaclasses/custom_attr_meta_as_role.t
===================================================================
--- t.orig/metaclasses/custom_attr_meta_as_role.t
+++ t/metaclasses/custom_attr_meta_as_role.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
is( exception {
@@ -19,4 +19,4 @@ is( exception {
with 'MooseX::Attribute::Test';
}, undef, 'custom attribute metaclass extending role is okay' );
-done_testing;
+#done_testing;
Index: t/metaclasses/custom_attr_meta_with_roles.t
===================================================================
--- t.orig/metaclasses/custom_attr_meta_with_roles.t
+++ t/metaclasses/custom_attr_meta_with_roles.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
{
@@ -38,4 +38,4 @@ ok($c->meta->has_attribute('bling_bling'
isa_ok($c->meta->get_attribute('bling_bling'), 'My::Custom::Meta::Attr');
-done_testing;
+#done_testing;
Index: t/metaclasses/easy_init_meta.t
===================================================================
--- t.orig/metaclasses/easy_init_meta.t
+++ t/metaclasses/easy_init_meta.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Moose qw(does_ok);
{
@@ -125,4 +125,4 @@ use Test::Moose qw(does_ok);
::does_ok(Foo2::Role->meta, 'Foo::Trait::Class');
}
-done_testing;
+#done_testing;
Index: t/metaclasses/export_with_prototype.t
===================================================================
--- t.orig/metaclasses/export_with_prototype.t
+++ t/metaclasses/export_with_prototype.t
@@ -2,7 +2,7 @@ use lib "t/lib";
package MyExporter::User;
use MyExporter;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
is( exception {
@@ -19,4 +19,4 @@ is( exception {
};
}, undef, "check function with prototype" );
-done_testing;
+#done_testing;
Index: t/metaclasses/extending_and_embedding_back_compat.t
===================================================================
--- t.orig/metaclasses/extending_and_embedding_back_compat.t
+++ t/metaclasses/extending_and_embedding_back_compat.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
BEGIN {
@@ -52,4 +52,4 @@ isa_ok($obj, 'Moose::Object');
is($obj->foo, 10, '... got the right value');
-done_testing;
+#done_testing;
Index: t/metaclasses/goto_moose_import.t
===================================================================
--- t.orig/metaclasses/goto_moose_import.t
+++ t/metaclasses/goto_moose_import.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
# Some packages out in the wild cooperate with Moose by using goto
@@ -79,4 +79,4 @@ ok( Bar->can('meta'),
'Bar has a meta method' );
isa_ok( Bar->meta(), 'Moose::Meta::Class' );
-done_testing;
+#done_testing;
Index: t/metaclasses/immutable_metaclass_compat_bug.t
===================================================================
--- t.orig/metaclasses/immutable_metaclass_compat_bug.t
+++ t/metaclasses/immutable_metaclass_compat_bug.t
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
{
package Foo::Base::Meta::Trait;
@@ -35,4 +35,4 @@ use Test::More;
::ok(!Foo->meta->is_immutable);
}
-done_testing;
+#done_testing;
Index: t/metaclasses/meta_name.t
===================================================================
--- t.orig/metaclasses/meta_name.t
+++ t/metaclasses/meta_name.t
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
{
# so we don't pick up stuff from Moose::Object
@@ -40,4 +40,4 @@ ok(!Baz->can('meta'));
# 1 because of the dummy method we installed in Base
is(scalar Class::MOP::class_of('Baz')->get_all_methods, 1);
-done_testing;
+#done_testing;
Index: t/metaclasses/metaclass_compat.t
===================================================================
--- t.orig/metaclasses/metaclass_compat.t
+++ t/metaclasses/metaclass_compat.t
@@ -2,7 +2,7 @@
use strict;
use warnings;
use lib 't/lib';
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
our $called = 0;
@@ -302,4 +302,4 @@ ok(Foo::Sub->meta->meta->can('does_role'
::is( ::exception { extends 'Foo7' }, undef, "role reconciliation works" );
}
-done_testing;
+#done_testing;
Index: t/metaclasses/metaclass_compat_no_fixing_bug.t
===================================================================
--- t.orig/metaclasses/metaclass_compat_no_fixing_bug.t
+++ t/metaclasses/metaclass_compat_no_fixing_bug.t
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
{
@@ -43,4 +43,4 @@ use Test::Fatal;
::is( ::exception { extends 'Foo::Sub' }, undef, "doesn't try to fix if nothing is needed" );
}
-done_testing;
+#done_testing;
Index: t/metaclasses/metaclass_parameterized_traits.t
===================================================================
--- t.orig/metaclasses/metaclass_parameterized_traits.t
+++ t/metaclasses/metaclass_parameterized_traits.t
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
{
package My::Trait;
@@ -45,4 +45,4 @@ is($other_meta->reversed, 'ssalC::rehtO:
ok(!$other_meta->can('enam'), "the method was not installed under the other class' alias");
ok(!$other_meta->can('reversed_name'), "the method was not installed under the original name when that was excluded");
-done_testing;
+#done_testing;
Index: t/metaclasses/metaclass_traits.t
===================================================================
--- t.orig/metaclasses/metaclass_traits.t
+++ t/metaclasses/metaclass_traits.t
@@ -5,7 +5,7 @@ use warnings;
use lib 't/lib', 'lib';
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
{
@@ -223,4 +223,4 @@ is( exception {
is( $instance->an_attr, 'value', 'Can get value' );
}, undef, 'Can create instance and access attributes' );
-done_testing;
+#done_testing;
Index: t/metaclasses/metarole.t
===================================================================
--- t.orig/metaclasses/metarole.t
+++ t/metaclasses/metarole.t
@@ -5,7 +5,7 @@ use warnings;
use lib 't/lib', 'lib';
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Moose::Util::MetaRole;
@@ -724,4 +724,4 @@ is( exception {
);
}
-done_testing;
+#done_testing;
Index: t/metaclasses/metarole_backcompat.t
===================================================================
--- t.orig/metaclasses/metarole_backcompat.t
+++ t/metaclasses/metarole_backcompat.t
@@ -8,7 +8,7 @@ use warnings;
use lib 't/lib', 'lib';
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Moose::Util::MetaRole;
@@ -668,4 +668,4 @@ is( exception {
);
}
-done_testing;
+#done_testing;
Index: t/metaclasses/metarole_combination.t
===================================================================
--- t.orig/metaclasses/metarole_combination.t
+++ t/metaclasses/metarole_combination.t
@@ -1,6 +1,6 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
our @applications;
@@ -235,4 +235,4 @@ is_deeply( [My::Role::Special->meta->com
::ok( $applications[1]->[1]->name->isa('Garply') );
}
-done_testing;
+#done_testing;
Index: t/metaclasses/metarole_on_anon.t
===================================================================
--- t.orig/metaclasses/metarole_on_anon.t
+++ t/metaclasses/metarole_on_anon.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Moose ();
use Moose::Meta::Class;
@@ -48,4 +48,4 @@ BAIL_OUT('Cannot continue if the anon cl
my $meta = $anon_name->meta;
ok( $meta, 'cached anon class still has a metaclass applying a metarole' );
-done_testing;
+#done_testing;
Index: t/metaclasses/metarole_w_metaclass_pm.t
===================================================================
--- t.orig/metaclasses/metarole_w_metaclass_pm.t
+++ t/metaclasses/metarole_w_metaclass_pm.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Moose::Util::MetaRole;
@@ -110,4 +110,4 @@ sub has_superclass {
ok( $supers{$parent}, $desc );
}
-done_testing;
+#done_testing;
Index: t/metaclasses/metaroles_of_metaroles.t
===================================================================
--- t.orig/metaclasses/metaroles_of_metaroles.t
+++ t/metaclasses/metaroles_of_metaroles.t
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
{
@@ -65,4 +65,4 @@ use Test::Fatal;
"apply a meta role to a role, which is then applied to yet another role");
}
-done_testing;
+#done_testing;
Index: t/metaclasses/moose_exporter.t
===================================================================
--- t.orig/metaclasses/moose_exporter.t
+++ t/metaclasses/moose_exporter.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Test::Requires {
@@ -416,4 +416,4 @@ use Test::Requires {
for qw( with_meta1 with_meta2 with_caller1 with_caller2 as_is1 );
}
-done_testing;
+#done_testing;
Index: t/metaclasses/moose_exporter_trait_aliases.t
===================================================================
--- t.orig/metaclasses/moose_exporter_trait_aliases.t
+++ t/metaclasses/moose_exporter_trait_aliases.t
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Moose;
{
@@ -86,4 +86,4 @@ BEGIN {
}
}
-done_testing;
+#done_testing;
Index: t/metaclasses/moose_for_meta.t
===================================================================
--- t.orig/metaclasses/moose_for_meta.t
+++ t/metaclasses/moose_for_meta.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
=pod
@@ -75,4 +75,4 @@ is_deeply(
ok($attr->has_accessor, '... the attribute does have an accessor (as expected)');
}
-done_testing;
+#done_testing;
Index: t/metaclasses/moose_nonmoose_metatrait_init_order.t
===================================================================
--- t.orig/metaclasses/moose_nonmoose_metatrait_init_order.t
+++ t/metaclasses/moose_nonmoose_metatrait_init_order.t
@@ -17,7 +17,7 @@ use warnings;
use base qw/SubClassUseBase/;
}
-use Test::More;
+use Test::More qw(no_plan);
use Moose::Util qw/find_meta does_role/;
my $subsubclass_meta = Moose->init_meta( for_class => 'SubSubClassUseBase' );
@@ -27,4 +27,4 @@ my $subclass_meta = find_meta('SubClassU
ok does_role($subclass_meta, 'My::Role'),
'SubClass metaclass does role from parent metaclass';
-done_testing;
+#done_testing;
Index: t/metaclasses/moose_nonmoose_moose_chain_init_meta.t
===================================================================
--- t.orig/metaclasses/moose_nonmoose_moose_chain_init_meta.t
+++ t/metaclasses/moose_nonmoose_moose_chain_init_meta.t
@@ -14,11 +14,11 @@ use warnings;
use Moose;
}
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
is( exception {
Moose->init_meta(for_class => 'SomeClass');
}, undef, 'Moose class => use base => Moose Class, then Moose->init_meta on middle class ok' );
-done_testing;
+#done_testing;
Index: t/metaclasses/moose_w_metaclass.t
===================================================================
--- t.orig/metaclasses/moose_w_metaclass.t
+++ t/metaclasses/moose_w_metaclass.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
=pod
@@ -53,4 +53,4 @@ isa_ok(Foo->meta, 'Foo::Meta');
'... got the right error too');
}
-done_testing;
+#done_testing;
Index: t/metaclasses/new_metaclass.t
===================================================================
--- t.orig/metaclasses/new_metaclass.t
+++ t/metaclasses/new_metaclass.t
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
do {
package My::Meta::Class;
@@ -25,4 +25,4 @@ do {
is(My::Class->meta->meta->name, 'My::Meta::Class');
is(My::Class::Aliased->meta->meta->name, 'My::Meta::Class');
-done_testing;
+#done_testing;
Index: t/metaclasses/new_object_BUILD.t
===================================================================
--- t.orig/metaclasses/new_object_BUILD.t
+++ t/metaclasses/new_object_BUILD.t
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
my $called;
{
@@ -17,4 +17,4 @@ $called = 0;
Foo->meta->new_object;
is($called, 1, "BUILD called from ->meta->new_object");
-done_testing;
+#done_testing;
Index: t/metaclasses/reinitialize.t
===================================================================
--- t.orig/metaclasses/reinitialize.t
+++ t/metaclasses/reinitialize.t
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Moose;
use Test::Fatal;
@@ -318,4 +318,4 @@ Moose::Meta::Role->reinitialize('Role3')
ok( Role3->meta->does_role('Role1'), 'Role3 does Role1 after reinitialize' );
ok( Role3->meta->does_role('Role2'), 'Role3 does Role2 after reinitialize' );
-done_testing;
+#done_testing;
Index: t/metaclasses/throw_error.t
===================================================================
--- t.orig/metaclasses/throw_error.t
+++ t/metaclasses/throw_error.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
{
@@ -229,4 +229,4 @@ is($confess->meta->error_class, 'Moose::
stacktrace_ok { $confess->bar };
}
-done_testing;
+#done_testing;
Index: t/metaclasses/use_base_of_moose.t
===================================================================
--- t.orig/metaclasses/use_base_of_moose.t
+++ t/metaclasses/use_base_of_moose.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
{
package NoOpTrait;
@@ -35,4 +35,4 @@ is($child->attr, "ibute", "getter inheri
$child->attr("ition");
is($child->attr, "ition", "setter inherited properly");
-done_testing;
+#done_testing;
Index: t/moose_util/apply_roles.t
===================================================================
--- t.orig/moose_util/apply_roles.t
+++ t/moose_util/apply_roles.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Moose::Util qw( apply_all_roles );
{
@@ -68,4 +68,4 @@ ok( Class::A->meta->does_role($_),
"Class::E does $_ (mix of names and meta role object)" )
for @roles;
-done_testing;
+#done_testing;
Index: t/moose_util/create_alias.t
===================================================================
--- t.orig/moose_util/create_alias.t
+++ t/moose_util/create_alias.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Moose qw(does_ok);
BEGIN {
@@ -101,4 +101,4 @@ isa_ok($bwmc_meta->get_attribute('bar'),
does_ok($bwmt_meta, 'Bar::Meta::Role');
does_ok($bwmt_meta->get_attribute('bar'), 'Bar::Meta::Role::Attribute');
-done_testing;
+#done_testing;
Index: t/moose_util/ensure_all_roles.t
===================================================================
--- t.orig/moose_util/ensure_all_roles.t
+++ t/moose_util/ensure_all_roles.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
BEGIN {
use_ok('Moose::Util', ':all');
@@ -63,4 +63,4 @@ is_deeply(
"unchanged, since all roles are already applied",
);
-done_testing;
+#done_testing;
Index: t/moose_util/method_mod_args.t
===================================================================
--- t.orig/moose_util/method_mod_args.t
+++ t/moose_util/method_mod_args.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Moose::Util qw( add_method_modifier );
@@ -28,4 +28,4 @@ $foo->bar;
is($COUNT, 2, "checking that the modifiers were installed.");
-done_testing;
+#done_testing;
Index: t/moose_util/moose_util.t
===================================================================
--- t.orig/moose_util/moose_util.t
+++ t/moose_util/moose_util.t
@@ -3,10 +3,10 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
BEGIN {
use_ok('Moose::Util');
}
-done_testing;
+#done_testing;
Index: t/moose_util/moose_util_does_role.t
===================================================================
--- t.orig/moose_util/moose_util_does_role.t
+++ t/moose_util/moose_util_does_role.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
BEGIN {
use_ok('Moose::Util', ':all');
@@ -79,4 +79,4 @@ ok(!does_role('Quux', 'Foo'), '... Quux
#ok(does_role('Foo::Foo', 'Foo'), '... Foo::Foo does do Foo');
-done_testing;
+#done_testing;
Index: t/moose_util/moose_util_search_class_by_role.t
===================================================================
--- t.orig/moose_util/moose_util_search_class_by_role.t
+++ t/moose_util/moose_util_search_class_by_role.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
BEGIN {
use_ok('Moose::Util', ':all');
@@ -42,4 +42,4 @@ is search_class_by_role('SCBR::C', SCBR:
is search_class_by_role('SCBR::D', 'SCBR::Role'), 'SCBR::D', '... nearest class being direct class returned';
is search_class_by_role('SCBR::D', SCBR::Role->meta), 'SCBR::D', '... nearest class being direct class returned';
-done_testing;
+#done_testing;
Index: t/moose_util/resolve_alias.t
===================================================================
--- t.orig/moose_util/resolve_alias.t
+++ t/moose_util/resolve_alias.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Moose::Util qw( resolve_metaclass_alias resolve_metatrait_alias );
@@ -76,4 +76,4 @@ is( resolve_metatrait_alias( 'Attribute'
'My::Trait::Bar',
'resolve_metatrait_alias finds Moose::Meta::Attribute::Custom::Trait::Bar as My::Trait::Bar via alias (Bar) a second time' );
-done_testing;
+#done_testing;
Index: t/moose_util/with_traits.t
===================================================================
--- t.orig/moose_util/with_traits.t
+++ t/moose_util/with_traits.t
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Moose;
use Moose ();
@@ -48,4 +48,4 @@ use Moose::Util qw(with_traits);
is($traited_class, $traited_class2, "get the same class back when passing the same roles");
}
-done_testing;
+#done_testing;
Index: t/native_traits/array_coerce.t
===================================================================
--- t.orig/native_traits/array_coerce.t
+++ t/native_traits/array_coerce.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
{
@@ -233,4 +233,4 @@ my $foo = Foo->new;
);
}
-done_testing;
+#done_testing;
Index: t/native_traits/array_from_role.t
===================================================================
--- t.orig/native_traits/array_from_role.t
+++ t/native_traits/array_from_role.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
{
@@ -43,4 +43,4 @@ use Test::Fatal;
}, undef, '... this should work correctly' );
}
-done_testing;
+#done_testing;
Index: t/native_traits/array_subtypes.t
===================================================================
--- t.orig/native_traits/array_subtypes.t
+++ t/native_traits/array_subtypes.t
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
{
@@ -262,4 +262,4 @@ my $foo = Foo->new;
);
}
-done_testing;
+#done_testing;
Index: t/native_traits/array_trigger.t
===================================================================
--- t.orig/native_traits/array_trigger.t
+++ t/native_traits/array_trigger.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
{
package Foo;
@@ -50,4 +50,4 @@ my $foo = Foo->new;
);
}
-done_testing;
+#done_testing;
Index: t/native_traits/collection_with_roles.t
===================================================================
--- t.orig/native_traits/collection_with_roles.t
+++ t/native_traits/collection_with_roles.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
{
package Subject;
@@ -66,7 +66,7 @@ use Test::More;
package Display;
- use Test::More;
+ use Test::More qw(no_plan);
use Moose;
@@ -121,4 +121,4 @@ $count->inc_counter;
is( $count->count, 0, 'Back to zero' );
-done_testing;
+#done_testing;
Index: t/native_traits/custom_instance.t
===================================================================
--- t.orig/native_traits/custom_instance.t
+++ t/native_traits/custom_instance.t
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Test::Moose;
@@ -244,4 +244,4 @@ with_immutable {
}
} 'Foo';
-done_testing;
+#done_testing;
Index: t/native_traits/hash_coerce.t
===================================================================
--- t.orig/native_traits/hash_coerce.t
+++ t/native_traits/hash_coerce.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
{
@@ -145,4 +145,4 @@ my $foo = Foo->new;
}
-done_testing;
+#done_testing;
Index: t/native_traits/hash_subtypes.t
===================================================================
--- t.orig/native_traits/hash_subtypes.t
+++ t/native_traits/hash_subtypes.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
{
@@ -203,4 +203,4 @@ my $foo = Foo->new;
);
}
-done_testing;
+#done_testing;
Index: t/native_traits/hash_trigger.t
===================================================================
--- t.orig/native_traits/hash_trigger.t
+++ t/native_traits/hash_trigger.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
{
@@ -51,4 +51,4 @@ my $foo = Foo->new;
);
}
-done_testing;
+#done_testing;
Index: t/native_traits/remove_attribute.t
===================================================================
--- t.orig/native_traits/remove_attribute.t
+++ t/native_traits/remove_attribute.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
{
@@ -47,4 +47,4 @@ ok( !$page->can($_), "... our class no l
reset_counter
];
-done_testing;
+#done_testing;
Index: t/native_traits/trait_array.t
===================================================================
--- t.orig/native_traits/trait_array.t
+++ t/native_traits/trait_array.t
@@ -8,7 +8,7 @@ use lib 't/lib';
use Moose ();
use Moose::Util::TypeConstraints;
use NoInlineAttribute;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Test::Moose;
@@ -669,4 +669,4 @@ sub run_tests {
$class;
}
-done_testing;
+#done_testing;
Index: t/native_traits/trait_bool.t
===================================================================
--- t.orig/native_traits/trait_bool.t
+++ t/native_traits/trait_bool.t
@@ -8,7 +8,7 @@ use lib 't/lib';
use Moose ();
use Moose::Util::TypeConstraints;
use NoInlineAttribute;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Test::Moose;
@@ -100,4 +100,4 @@ sub run_tests {
$class;
}
-done_testing;
+#done_testing;
Index: t/native_traits/trait_code.t
===================================================================
--- t.orig/native_traits/trait_code.t
+++ t/native_traits/trait_code.t
@@ -5,7 +5,7 @@ use lib 't/lib';
use Moose ();
use NoInlineAttribute;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Moose;
{
@@ -110,4 +110,4 @@ sub run_tests {
$class;
}
-done_testing;
+#done_testing;
Index: t/native_traits/trait_counter.t
===================================================================
--- t.orig/native_traits/trait_counter.t
+++ t/native_traits/trait_counter.t
@@ -9,7 +9,7 @@ use Moose ();
use Moose::Util::TypeConstraints;
use NoInlineAttribute;
use Test::Fatal;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Moose;
{
@@ -169,4 +169,4 @@ for my $attr ('lazy', 'nonlazy') {
is($obj->$attr, 1, "reset resets it to its default value");
}
-done_testing;
+#done_testing;
Index: t/native_traits/trait_hash.t
===================================================================
--- t.orig/native_traits/trait_hash.t
+++ t/native_traits/trait_hash.t
@@ -9,7 +9,7 @@ use Moose ();
use Moose::Util::TypeConstraints;
use NoInlineAttribute;
use Test::Fatal;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Moose;
{
@@ -292,4 +292,4 @@ sub run_tests {
$class;
}
-done_testing;
+#done_testing;
Index: t/native_traits/trait_number.t
===================================================================
--- t.orig/native_traits/trait_number.t
+++ t/native_traits/trait_number.t
@@ -9,7 +9,7 @@ use Moose ();
use Moose::Util::TypeConstraints;
use NoInlineAttribute;
use Test::Fatal;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Moose;
{
@@ -160,4 +160,4 @@ sub run_tests {
$class;
}
-done_testing;
+#done_testing;
Index: t/native_traits/trait_string.t
===================================================================
--- t.orig/native_traits/trait_string.t
+++ t/native_traits/trait_string.t
@@ -8,7 +8,7 @@ use lib 't/lib';
use Moose ();
use Moose::Util::TypeConstraints;
use NoInlineAttribute;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Test::Moose;
@@ -302,4 +302,4 @@ sub run_tests {
$class;
}
-done_testing;
+#done_testing;
Index: t/roles/anonymous_roles.t
===================================================================
--- t.orig/roles/anonymous_roles.t
+++ t/roles/anonymous_roles.t
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Moose ();
my $role = Moose::Meta::Role->create_anon_role(
@@ -33,4 +33,4 @@ ok($role->is_anon_role, "the role knows
ok(Class::MOP::is_class_loaded(Moose::Meta::Role->create_anon_role->name), "creating an anonymous role satisifes is_class_loaded");
ok(Class::MOP::class_of(Moose::Meta::Role->create_anon_role->name), "creating an anonymous role satisifes class_of");
-done_testing;
+#done_testing;
Index: t/roles/application_toclass.t
===================================================================
--- t.orig/roles/application_toclass.t
+++ t/roles/application_toclass.t
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
do {
package Role::Foo;
@@ -73,4 +73,4 @@ is_deeply($excludes->get_method_exclusio
is_deeply($aliases->get_method_exclusions, []);
is_deeply($overrides->get_method_exclusions, []);
-done_testing;
+#done_testing;
Index: t/roles/apply_role.t
===================================================================
--- t.orig/roles/apply_role.t
+++ t/roles/apply_role.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
{
@@ -212,4 +212,4 @@ foreach my $foo ( $foo, $foobar ) {
}
}
-done_testing;
+#done_testing;
Index: t/roles/build.t
===================================================================
--- t.orig/roles/build.t
+++ t/roles/build.t
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Requires {
'Test::Output' => '0.01', # skip all if not installed
@@ -77,4 +77,4 @@ do {
}
}
-done_testing;
+#done_testing;
Index: t/roles/compose_overloading.t
===================================================================
--- t.orig/roles/compose_overloading.t
+++ t/roles/compose_overloading.t
@@ -1,6 +1,6 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
{
package Foo;
@@ -27,4 +27,4 @@ TODO: {
is("$bar", 42, 'overloading can be composed');
}
-done_testing;
+#done_testing;
Index: t/roles/conflict_many_methods.t
===================================================================
--- t.orig/roles/conflict_many_methods.t
+++ t/roles/conflict_many_methods.t
@@ -2,7 +2,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
{
@@ -45,4 +45,4 @@ use Test::Fatal;
}, qr/Due to a method name conflict in roles 'Caninish' and 'Treeve', the method 'bark' must be implemented or excluded by 'PracticalJoke'/ );
}
-done_testing;
+#done_testing;
Index: t/roles/create_role.t
===================================================================
--- t.orig/roles/create_role.t
+++ t/roles/create_role.t
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Moose ();
my $role = Moose::Meta::Role->create(
@@ -37,4 +37,4 @@ my $composed_role = Moose::Meta::Role->c
ok($composed_role->does_role('MyItem::Role::Equipment2'), "Role composed into role");
-done_testing;
+#done_testing;
Index: t/roles/create_role_subclass.t
===================================================================
--- t.orig/roles/create_role_subclass.t
+++ t/roles/create_role_subclass.t
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Moose ();
do {
@@ -24,4 +24,4 @@ is($role->test_serial, 1, "default value
my $nine_role = My::Meta::Role->create_anon_role(test_serial => 9);
is($nine_role->test_serial, 9, "parameter value for the serial attribute");
-done_testing;
+#done_testing;
Index: t/roles/empty_method_modifiers_meta_bug.t
===================================================================
--- t.orig/roles/empty_method_modifiers_meta_bug.t
+++ t/roles/empty_method_modifiers_meta_bug.t
@@ -2,7 +2,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
# test role and class
package SomeRole;
@@ -27,4 +27,4 @@ for my $modifier_type (qw[ before around
is(scalar(@mms),0,'is an empty list');
}
-done_testing;
+#done_testing;
Index: t/roles/extending_role_attrs.t
===================================================================
--- t.orig/roles/extending_role_attrs.t
+++ t/roles/extending_role_attrs.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
@@ -183,4 +183,4 @@ is_deeply($quux->quux, ["hi"], "... stil
}, qr/has '\+attr' is not supported in roles/, "Test has '+attr' in roles explodes" );
}
-done_testing;
+#done_testing;
Index: t/roles/free_anonymous_roles.t
===================================================================
--- t.orig/roles/free_anonymous_roles.t
+++ t/roles/free_anonymous_roles.t
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Moose ();
use Scalar::Util 'weaken';
@@ -60,4 +60,4 @@ ok($weak, "the role metaclass still exis
ok($name->can('improperly_freed'), "the symbol table still exists too");
-done_testing;
+#done_testing;
Index: t/roles/meta_role.t
===================================================================
--- t.orig/roles/meta_role.t
+++ t/roles/meta_role.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Moose::Meta::Role;
@@ -110,4 +110,4 @@ is_deeply(
[ 'boo' ],
'... got the right list of before method modifiers');
-done_testing;
+#done_testing;
Index: t/roles/method_aliasing_in_composition.t
===================================================================
--- t.orig/roles/method_aliasing_in_composition.t
+++ t/roles/method_aliasing_in_composition.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
@@ -205,4 +205,4 @@ ok(My::Foo::AliasOnly->meta->has_method(
ok( ! $baz->has_method('y1'), 'Role::Baz has no y1 method' );
}
-done_testing;
+#done_testing;
Index: t/roles/method_exclusion_in_composition.t
===================================================================
--- t.orig/roles/method_exclusion_in_composition.t
+++ t/roles/method_exclusion_in_composition.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
@@ -109,4 +109,4 @@ ok(!My::Foo::Role->meta->requires_method
ok(!My::Foo::Role::Other->meta->has_method('foo'), "we dont have a foo method");
ok(My::Foo::Role::Other->meta->requires_method('foo'), '... and the &foo method is required');
-done_testing;
+#done_testing;
Index: t/roles/method_modifiers.t
===================================================================
--- t.orig/roles/method_modifiers.t
+++ t/roles/method_modifiers.t
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
my $FooRole;
@@ -87,4 +87,4 @@ Quux->bar;
is($QuuxRole, 2, "modifier called");
}
-done_testing;
+#done_testing;
Index: t/roles/more_alias_and_exclude.t
===================================================================
--- t.orig/roles/more_alias_and_exclude.t
+++ t/roles/more_alias_and_exclude.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
@@ -65,4 +65,4 @@ is($c->foo_gorch, 'Foo::gorch', '... got
is($c->baz_foo, 'Baz::foo', '... got the right method');
is($c->baz_bar, 'Baz::bar', '... got the right method');
-done_testing;
+#done_testing;
Index: t/roles/more_role_edge_cases.t
===================================================================
--- t.orig/roles/more_role_edge_cases.t
+++ t/roles/more_role_edge_cases.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
@@ -254,4 +254,4 @@ use Test::Fatal;
}
}
-done_testing;
+#done_testing;
Index: t/roles/new_meta_role.t
===================================================================
--- t.orig/roles/new_meta_role.t
+++ t/roles/new_meta_role.t
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
do {
package My::Meta::Role;
@@ -16,4 +16,4 @@ do {
is(My::Role->meta->meta->name, 'My::Meta::Role');
-done_testing;
+#done_testing;
Index: t/roles/overriding.t
===================================================================
--- t.orig/roles/overriding.t
+++ t/roles/overriding.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
@@ -226,4 +226,4 @@ ok(Role::I->meta->requires_method('foo')
}
-done_testing;
+#done_testing;
Index: t/roles/reinitialize_anon_role.t
===================================================================
--- t.orig/roles/reinitialize_anon_role.t
+++ t/roles/reinitialize_anon_role.t
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
{
package Role::Metarole;
@@ -28,4 +28,4 @@ my ($role2);
is_deeply([sort $role2->get_method_list], ['foo', 'meta'],
"still has the right methods");
-done_testing;
+#done_testing;
Index: t/roles/role.t
===================================================================
--- t.orig/roles/role.t
+++ t/roles/role.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
=pod
@@ -153,4 +153,4 @@ is_deeply(
[ 'bling', 'fling' ],
'... got the right list of override method modifiers');
-done_testing;
+#done_testing;
Index: t/roles/role_attr_application.t
===================================================================
--- t.orig/roles/role_attr_application.t
+++ t/roles/role_attr_application.t
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Moose;
use Moose::Util qw( does_role );
@@ -289,4 +289,4 @@ ok(!Moose::Util::does_role(Baz->meta->ge
-done_testing;
+#done_testing;
Index: t/roles/role_attribute_conflict.t
===================================================================
--- t.orig/roles/role_attribute_conflict.t
+++ t/roles/role_attribute_conflict.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
{
@@ -25,4 +25,4 @@ use Test::Fatal;
::like( ::exception { with 'My::Role1' }, qr/attribute conflict.+My::Role2.+foo/, 'attribute conflict when composing one role into another' );
}
-done_testing;
+#done_testing;
Index: t/roles/role_attrs.t
===================================================================
--- t.orig/roles/role_attrs.t
+++ t/roles/role_attrs.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Moose ();
use Moose::Meta::Role;
@@ -50,4 +50,4 @@ is(
'associated_role for foo attr is still Foo role'
);
-done_testing;
+#done_testing;
Index: t/roles/role_compose_requires.t
===================================================================
--- t.orig/roles/role_compose_requires.t
+++ t/roles/role_compose_requires.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
{
@@ -129,4 +129,4 @@ is( exception {
isnt( exception { package My::Test14; use Moose; with 'My::Role1'; with 'My::Role5'; }, undef, 'class consumes role1; consumes role5(provides method)' );
-done_testing;
+#done_testing;
Index: t/roles/role_composite.t
===================================================================
--- t.orig/roles/role_composite.t
+++ t/roles/role_composite.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Moose::Meta::Role::Application::RoleSummation;
@@ -79,4 +79,4 @@ use Moose::Meta::Role::Composite;
}
}
-done_testing;
+#done_testing;
Index: t/roles/role_composite_exclusion.t
===================================================================
--- t.orig/roles/role_composite_exclusion.t
+++ t/roles/role_composite_exclusion.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Moose::Meta::Role::Application::RoleSummation;
@@ -106,4 +106,4 @@ isnt( exception {
);
}, undef, '... this fails as expected' );
-done_testing;
+#done_testing;
Index: t/roles/role_composition_attributes.t
===================================================================
--- t.orig/roles/role_composition_attributes.t
+++ t/roles/role_composition_attributes.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Moose::Meta::Role::Application::RoleSummation;
@@ -92,4 +92,4 @@ isnt( exception {
);
}, undef, '... this fails as expected' );
-done_testing;
+#done_testing;
Index: t/roles/role_composition_errors.t
===================================================================
--- t.orig/roles/role_composition_errors.t
+++ t/roles/role_composition_errors.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
@@ -140,4 +140,4 @@ is_deeply(
::like( ::exception { with('Quux::Role') }, qr/'Quux::Role' requires the methods 'meth3' and 'meth4' to be implemented by 'Quux::Class4'/, 'exception mentions all the require methods that are accessors at once, as well as missing methods, but not the one that exists' );
}
-done_testing;
+#done_testing;
Index: t/roles/role_composition_method_mods.t
===================================================================
--- t.orig/roles/role_composition_method_mods.t
+++ t/roles/role_composition_method_mods.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Moose::Meta::Role::Application::RoleSummation;
@@ -85,4 +85,4 @@ use Moose::Meta::Role::Composite;
);
}
-done_testing;
+#done_testing;
Index: t/roles/role_composition_methods.t
===================================================================
--- t.orig/roles/role_composition_methods.t
+++ t/roles/role_composition_methods.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Moose::Meta::Role::Application::RoleSummation;
@@ -149,4 +149,4 @@ use Moose::Meta::Role::Composite;
);
}
-done_testing;
+#done_testing;
Index: t/roles/role_composition_override.t
===================================================================
--- t.orig/roles/role_composition_override.t
+++ t/roles/role_composition_override.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Moose::Meta::Role::Application::RoleSummation;
@@ -111,4 +111,4 @@ isnt( exception {
);
}, undef, '... this fails as expected' );
-done_testing;
+#done_testing;
Index: t/roles/role_composition_req_methods.t
===================================================================
--- t.orig/roles/role_composition_req_methods.t
+++ t/roles/role_composition_req_methods.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Moose::Meta::Role::Application::RoleSummation;
@@ -122,4 +122,4 @@ use Moose::Meta::Role::Composite;
);
}
-done_testing;
+#done_testing;
Index: t/roles/role_conflict_detection.t
===================================================================
--- t.orig/roles/role_conflict_detection.t
+++ t/roles/role_conflict_detection.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
=pod
@@ -570,4 +570,4 @@ is($test26->ghost, 'My::Test26::ghost',
=cut
-done_testing;
+#done_testing;
Index: t/roles/role_conflict_edge_cases.t
===================================================================
--- t.orig/roles/role_conflict_edge_cases.t
+++ t/roles/role_conflict_edge_cases.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
=pod
@@ -187,4 +187,4 @@ ok(My::Test::Class4->meta->has_attribute
is(My::Test::Class4->new->foo, 'Role::Base::foo', '... got the right value from method');
-done_testing;
+#done_testing;
Index: t/roles/role_consumers.t
===================================================================
--- t.orig/roles/role_consumers.t
+++ t/roles/role_consumers.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
{
package Foo::Role;
@@ -51,4 +51,4 @@ is_deeply([sort Bar::Role->meta->consume
is_deeply([sort Foo::Role::User->meta->consumers],
['Foo::User']);
-done_testing;
+#done_testing;
Index: t/roles/role_exclusion.t
===================================================================
--- t.orig/roles/role_exclusion.t
+++ t/roles/role_exclusion.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
=pod
@@ -118,4 +118,4 @@ ok(My::Test4->meta->does_role('Molecule:
ok(My::Test4->meta->excludes_role('Molecule::Inorganic'), '... My::Test4 meta excludes Molecule::Organic');
ok(!My::Test4->does('Molecule::Inorganic'), '... My::Test4 does Molecule::Inorganic');
-done_testing;
+#done_testing;
Index: t/roles/role_exclusion_and_alias_bug.t
===================================================================
--- t.orig/roles/role_exclusion_and_alias_bug.t
+++ t/roles/role_exclusion_and_alias_bug.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Moose;
{
@@ -66,4 +66,4 @@ use Test::Moose;
is($x->gorch, 'BAR', '... got the right value');
}
-done_testing;
+#done_testing;
Index: t/roles/role_for_combination.t
===================================================================
--- t.orig/roles/role_for_combination.t
+++ t/roles/role_for_combination.t
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
my $OPTS;
do {
@@ -43,4 +43,4 @@ is(My::Class->foo, 'My::Singleton::Role'
is(My::Class->bar, 'My::Usual::Role', 'collateral role');
is_deeply($OPTS, { number => 1 });
-done_testing;
+#done_testing;
Index: t/roles/roles_and_method_cloning.t
===================================================================
--- t.orig/roles/roles_and_method_cloning.t
+++ t/roles/roles_and_method_cloning.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
{
@@ -76,4 +76,4 @@ isnt( ClassA->foo, "ClassB::foo", "Class
is( ClassB->foo, 'Role::Foo::foo', 'ClassB::foo knows its name' );
is( ClassA->foo, 'Role::Foo::foo', 'ClassA::foo knows its name' );
-done_testing;
+#done_testing;
Index: t/roles/roles_and_req_method_edge_cases.t
===================================================================
--- t.orig/roles/roles_and_req_method_edge_cases.t
+++ t/roles/roles_and_req_method_edge_cases.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
=pod
@@ -276,4 +276,4 @@ method modifier.
}, undef, 'required method exists in superclass as non-modifier, so we live' );
}
-done_testing;
+#done_testing;
Index: t/roles/roles_applied_in_create.t
===================================================================
--- t.orig/roles/roles_applied_in_create.t
+++ t/roles/roles_applied_in_create.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Moose::Meta::Class;
use Moose::Util;
@@ -22,4 +22,4 @@ is( exception {
);
}, undef, 'Create a new class with several roles' );
-done_testing;
+#done_testing;
Index: t/roles/run_time_role_composition.t
===================================================================
--- t.orig/roles/run_time_role_composition.t
+++ t/roles/run_time_role_composition.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Scalar::Util qw(blessed);
@@ -110,4 +110,4 @@ isa_ok($obj2, 'My::Class');
is(blessed($obj), blessed($obj2), '... they now share the same anon-class/role thing');
}
-done_testing;
+#done_testing;
Index: t/roles/runtime_roles_and_attrs.t
===================================================================
--- t.orig/roles/runtime_roles_and_attrs.t
+++ t/roles/runtime_roles_and_attrs.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Scalar::Util 'blessed';
@@ -54,4 +54,4 @@ is( exception {
is($obj->fur, "dirty", "role attr initialized");
-done_testing;
+#done_testing;
Index: t/roles/runtime_roles_and_nonmoose.t
===================================================================
--- t.orig/roles/runtime_roles_and_nonmoose.t
+++ t/roles/runtime_roles_and_nonmoose.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Scalar::Util 'blessed';
@@ -53,4 +53,4 @@ is( exception {
$foo->dog($bar)
}, undef, '... and setting the accessor is okay' );
-done_testing;
+#done_testing;
Index: t/roles/runtime_roles_w_params.t
===================================================================
--- t.orig/roles/runtime_roles_w_params.t
+++ t/roles/runtime_roles_w_params.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
@@ -69,4 +69,4 @@ use Test::Fatal;
is($foo->baz, 'FOO-BAZ', '... got the expect value');
}
-done_testing;
+#done_testing;
Index: t/test_moose/test_moose.t
===================================================================
--- t.orig/test_moose/test_moose.t
+++ t/test_moose/test_moose.t
@@ -3,10 +3,10 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
BEGIN {
use_ok('Test::Moose');
}
-done_testing;
+#done_testing;
Index: t/test_moose/test_moose_does_ok.t
===================================================================
--- t.orig/test_moose/test_moose_does_ok.t
+++ t/test_moose/test_moose_does_ok.t
@@ -4,7 +4,7 @@ use strict;
use warnings;
use Test::Builder::Tester;
-use Test::More;
+use Test::More qw(no_plan);
BEGIN {
use_ok('Test::Moose');
@@ -59,4 +59,4 @@ does_ok ($baz,'Foo','does_ok object fail
test_test ('does_ok');
-done_testing;
+#done_testing;
Index: t/test_moose/test_moose_has_attribute_ok.t
===================================================================
--- t.orig/test_moose/test_moose_has_attribute_ok.t
+++ t/test_moose/test_moose_has_attribute_ok.t
@@ -4,7 +4,7 @@ use strict;
use warnings;
use Test::Builder::Tester;
-use Test::More;
+use Test::More qw(no_plan);
BEGIN {
use_ok('Test::Moose');
@@ -46,4 +46,4 @@ has_attribute_ok('Bar', 'bar', '... has_
test_test ('has_attribute_ok');
-done_testing;
+#done_testing;
Index: t/test_moose/test_moose_meta_ok.t
===================================================================
--- t.orig/test_moose/test_moose_meta_ok.t
+++ t/test_moose/test_moose_meta_ok.t
@@ -4,7 +4,7 @@ use strict;
use warnings;
use Test::Builder::Tester;
-use Test::More;
+use Test::More qw(no_plan);
BEGIN {
use_ok('Test::Moose');
@@ -30,4 +30,4 @@ meta_ok('Bar', '... meta_ok(Bar) fails')
test_test ('meta_ok');
-done_testing;
+#done_testing;
Index: t/test_moose/with_immutable.t
===================================================================
--- t.orig/test_moose/with_immutable.t
+++ t/test_moose/with_immutable.t
@@ -4,7 +4,7 @@ use strict;
use warnings;
use Test::Builder::Tester;
-use Test::More;
+use Test::More qw(no_plan);
BEGIN {
use_ok('Test::Moose');
@@ -37,4 +37,4 @@ $ret = with_immutable {
test_test('with_immutable success');
ok($ret, "all tests succeeded");
-done_testing;
+#done_testing;
Index: t/todo_tests/exception_reflects_failed_constraint.t
===================================================================
--- t.orig/todo_tests/exception_reflects_failed_constraint.t
+++ t/todo_tests/exception_reflects_failed_constraint.t
@@ -7,7 +7,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
BEGIN {
@@ -32,4 +32,4 @@ is( exception {
};
}
-done_testing;
+#done_testing;
Index: t/todo_tests/immutable_n_around.t
===================================================================
--- t.orig/todo_tests/immutable_n_around.t
+++ t/todo_tests/immutable_n_around.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
# if make_immutable is removed from the following code the tests pass
@@ -53,4 +53,4 @@ tests: {
}
}
-done_testing;
+#done_testing;
Index: t/todo_tests/moose_and_threads.t
===================================================================
--- t.orig/todo_tests/moose_and_threads.t
+++ t/todo_tests/moose_and_threads.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
=pod
@@ -37,4 +37,4 @@ $thr->join();
fail('Moose type constraints and threads dont get along');
}
-done_testing;
+#done_testing;
Index: t/todo_tests/replacing_super_methods.t
===================================================================
--- t.orig/todo_tests/replacing_super_methods.t
+++ t/todo_tests/replacing_super_methods.t
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
my ($super_called, $sub_called, $new_super_called) = (0, 0, 0);
{
@@ -40,4 +40,4 @@ is($new_super_called, 1, "new super call
}
is($sub_called, 1, "sub called");
-done_testing;
+#done_testing;
Index: t/todo_tests/required_role_accessors.t
===================================================================
--- t.orig/todo_tests/required_role_accessors.t
+++ t/todo_tests/required_role_accessors.t
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
{
@@ -55,4 +55,4 @@ use Test::Fatal;
}
}
-done_testing;
+#done_testing;
Index: t/todo_tests/role_insertion_order.t
===================================================================
--- t.orig/todo_tests/role_insertion_order.t
+++ t/todo_tests/role_insertion_order.t
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
{
package Foo::Role;
@@ -39,4 +39,4 @@ my %class_insertion_order = (
is_deeply({ map { $_->name => $_->insertion_order } Foo->meta->get_all_attributes }, \%class_insertion_order, "right insertion order within the class");
}
-done_testing;
+#done_testing;
Index: t/todo_tests/various_role_features.t
===================================================================
--- t.orig/todo_tests/various_role_features.t
+++ t/todo_tests/various_role_features.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
sub req_or_has ($$) {
@@ -233,7 +233,7 @@ isa_ok( $robot->get_attribute("twist"),
isa_ok( $robot->get_method("twist"), "Moose::Meta::Method::Accessor" );
}
-done_testing;
+#done_testing;
__END__
Index: t/type_constraints/advanced_type_creation.t
===================================================================
--- t.orig/type_constraints/advanced_type_creation.t
+++ t/type_constraints/advanced_type_creation.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
BEGIN {
use_ok('Moose::Util::TypeConstraints');
@@ -96,4 +96,4 @@ ok(!$array_of_array_of_array_of_ints->ch
[[[ 1, 2, 3 ]], [[ qw/foo bar/ ]]]
), '... [[[ 1, 2, 3 ]], [[ qw/foo bar/ ]]] failed successfully');
-done_testing;
+#done_testing;
Index: t/type_constraints/class_subtypes.t
===================================================================
--- t.orig/type_constraints/class_subtypes.t
+++ t/type_constraints/class_subtypes.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Moose::Util::TypeConstraints;
@@ -140,4 +140,4 @@ is( exception {
Quux::Ier->new(age => (bless {}, 'Negative'))
}, undef );
-done_testing;
+#done_testing;
Index: t/type_constraints/class_type_constraint.t
===================================================================
--- t.orig/type_constraints/class_type_constraint.t
+++ t/type_constraints/class_type_constraint.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
BEGIN {
@@ -60,4 +60,4 @@ ok( $type->equals(Moose::Meta::TypeConst
ok( !$type->equals(Moose::Meta::TypeConstraint::Class->new( name => "__ANON__", class => "Bar" )), "doesn't equal other anon constraint" );
ok( $type->is_subtype_of(Moose::Meta::TypeConstraint::Class->new( name => "__ANON__", class => "Bar" )), "subtype of other anon constraint" );
-done_testing;
+#done_testing;
Index: t/type_constraints/coerced_parameterized_types.t
===================================================================
--- t.orig/type_constraints/coerced_parameterized_types.t
+++ t/type_constraints/coerced_parameterized_types.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
BEGIN {
@@ -56,4 +56,4 @@ ok($evenlist->check(MyList->new(10, 20,
ok(!$evenlist->check(MyList->new(10, "two")), '... validated it correctly (fail)');
ok(!$evenlist->check([10, 20]), '... validated it correctly (fail)');
-done_testing;
+#done_testing;
Index: t/type_constraints/container_type_coercion.t
===================================================================
--- t.orig/type_constraints/container_type_coercion.t
+++ t/type_constraints/container_type_coercion.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
BEGIN {
use_ok('Moose::Util::TypeConstraints');
@@ -64,4 +64,4 @@ isa_ok($foo, 'Foo');
is_deeply([ sort @{$foo->bar} ], [ 1, 2, 3 ], '... our coercion worked!');
-done_testing;
+#done_testing;
Index: t/type_constraints/container_type_constraint.t
===================================================================
--- t.orig/type_constraints/container_type_constraint.t
+++ t/type_constraints/container_type_constraint.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
BEGIN {
use_ok('Moose::Util::TypeConstraints');
@@ -71,4 +71,4 @@ ok(!$array_of_array_of_ints->check(
isa_ok( $param_type, 'Moose::Meta::TypeConstraint::Class' );
}
-done_testing;
+#done_testing;
Index: t/type_constraints/custom_parameterized_types.t
===================================================================
--- t.orig/type_constraints/custom_parameterized_types.t
+++ t/type_constraints/custom_parameterized_types.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
BEGIN {
@@ -84,4 +84,4 @@ isnt( exception {
);
}, undef, 'non-containers cannot be parameterized' );
-done_testing;
+#done_testing;
Index: t/type_constraints/custom_type_errors.t
===================================================================
--- t.orig/type_constraints/custom_type_errors.t
+++ t/type_constraints/custom_type_errors.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
{
@@ -44,4 +44,4 @@ is( $@, '', '... no errors thrown, value
like( exception { $gimp->leg_count }, qr/This number \(0\) is not less than ten!/, 'gave custom supertype error message on lazy set to 0' );
-done_testing;
+#done_testing;
Index: t/type_constraints/define_type_twice_throws.t
===================================================================
--- t.orig/type_constraints/define_type_twice_throws.t
+++ t/type_constraints/define_type_twice_throws.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
BEGIN {
@@ -24,4 +24,4 @@ like( exception {
subtype 'MySubType' => as 'Int' => where { 1 };
}, qr/cannot be created again/, 'Trying to create same type twice throws' );
-done_testing;
+#done_testing;
Index: t/type_constraints/duck_type_handles.t
===================================================================
--- t.orig/type_constraints/duck_type_handles.t
+++ t/type_constraints/duck_type_handles.t
@@ -2,7 +2,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
my @phonograph;
{
@@ -43,4 +43,4 @@ is_deeply([splice @phonograph], ['quack'
$t->walk;
is_deeply([splice @phonograph], ['footsteps']);
-done_testing;
+#done_testing;
Index: t/type_constraints/duck_types.t
===================================================================
--- t.orig/type_constraints/duck_types.t
+++ t/type_constraints/duck_types.t
@@ -2,7 +2,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
{
@@ -76,4 +76,4 @@ is( exception { DucktypeTest->new( duck
# try with the other constraint form
is( exception { DucktypeTest->new( other_swan => Swan->new ) }, undef, 'but a Swan can honk' );
-done_testing;
+#done_testing;
Index: t/type_constraints/enum.t
===================================================================
--- t.orig/type_constraints/enum.t
+++ t/type_constraints/enum.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Scalar::Util ();
@@ -84,4 +84,4 @@ like( exception {
}, qr/enum called with an array reference and additional arguments\. Did you mean to parenthesize the enum call's parameters\?/ );
-done_testing;
+#done_testing;
Index: t/type_constraints/match_type_operator.t
===================================================================
--- t.orig/type_constraints/match_type_operator.t
+++ t/type_constraints/match_type_operator.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Moose::Util::TypeConstraints;
@@ -226,4 +226,4 @@ like( exception {
not_enough_matches( [] )
}, qr/No cases matched for /, '... not enough matches' );
-done_testing;
+#done_testing;
Index: t/type_constraints/maybe_type_constraint.t
===================================================================
--- t.orig/type_constraints/maybe_type_constraint.t
+++ t/type_constraints/maybe_type_constraint.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Moose::Util::TypeConstraints;
@@ -128,4 +128,4 @@ ok !$Maybe_Int->check("a")
like( exception { $obj->Maybe_Int("a") }, qr/Attribute \(Maybe_Int\) does not pass the type constraint/, 'failed assigned ("a")' );
-done_testing;
+#done_testing;
Index: t/type_constraints/misc_type_tests.t
===================================================================
--- t.orig/type_constraints/misc_type_tests.t
+++ t/type_constraints/misc_type_tests.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Scalar::Util qw(refaddr);
@@ -86,4 +86,4 @@ ok $subtype2 => 'made a subtype of our s
ok $subtype1, "type constraint boolean overload works";
-done_testing;
+#done_testing;
Index: t/type_constraints/normalize_type_name.t
===================================================================
--- t.orig/type_constraints/normalize_type_name.t
+++ t/type_constraints/normalize_type_name.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
BEGIN {
use_ok('Moose::Util::TypeConstraints');
@@ -149,4 +149,4 @@ is $union1->name, $union3->name, 'names
is $union2->name, $union3->name, 'names match';
-done_testing;
+#done_testing;
Index: t/type_constraints/parameterize_from.t
===================================================================
--- t.orig/type_constraints/parameterize_from.t
+++ t/type_constraints/parameterize_from.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
BEGIN {
@@ -75,4 +75,4 @@ like( exception {
$params->from_parameterizable( { a => 'Hello', b => 'World' } );
}, qr/Attribute \(from_parameterizable\) does not pass the type constraint/, 'from_parameterizable throws expected error' );
-done_testing;
+#done_testing;
Index: t/type_constraints/role_type_constraint.t
===================================================================
--- t.orig/type_constraints/role_type_constraint.t
+++ t/type_constraints/role_type_constraint.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
BEGIN {
@@ -63,4 +63,4 @@ ok( $type->equals(Moose::Meta::TypeConst
ok( !$type->equals(Moose::Meta::TypeConstraint::Role->new( name => "__ANON__", role => "Bar" )), "doesn't equal other anon constraint" );
ok( $type->is_subtype_of(Moose::Meta::TypeConstraint::Role->new( name => "__ANON__", role => "Bar" )), "subtype of other anon constraint" );
-done_testing;
+#done_testing;
Index: t/type_constraints/subtype_auto_vivify_parent.t
===================================================================
--- t.orig/type_constraints/subtype_auto_vivify_parent.t
+++ t/type_constraints/subtype_auto_vivify_parent.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Moose::Util::TypeConstraints;
@@ -30,4 +30,4 @@ is( $type->parent->name, 'Foo', 'parent
isa_ok( $type->parent, 'Moose::Meta::TypeConstraint::Class',
'parent type constraint is a class type' );
-done_testing;
+#done_testing;
Index: t/type_constraints/subtyping_parameterized_types.t
===================================================================
--- t.orig/type_constraints/subtyping_parameterized_types.t
+++ t/type_constraints/subtyping_parameterized_types.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
BEGIN {
@@ -128,4 +128,4 @@ is( exception {
ok !$RefToInt->check(\"foo"), '\"foo" is not';
}
-done_testing;
+#done_testing;
Index: t/type_constraints/subtyping_union_types.t
===================================================================
--- t.orig/type_constraints/subtyping_union_types.t
+++ t/type_constraints/subtyping_union_types.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
BEGIN {
@@ -66,4 +66,4 @@ is( exception {
ok(!$t->check(1), '... validated it correctly');
}
-done_testing;
+#done_testing;
Index: t/type_constraints/throw_error.t
===================================================================
--- t.orig/type_constraints/throw_error.t
+++ t/type_constraints/throw_error.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Moose::Util::TypeConstraints;
@@ -11,4 +11,4 @@ eval { Moose::Util::TypeConstraints::cre
like( $@, qr/\QYou must pass in at least 2 type names to make a union/,
'can throw a proper error without Moose being loaded by the caller' );
-done_testing;
+#done_testing;
Index: t/type_constraints/type_coersion_on_lazy_attributes.t
===================================================================
--- t.orig/type_constraints/type_coersion_on_lazy_attributes.t
+++ t/type_constraints/type_coersion_on_lazy_attributes.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
{
package SomeClass;
@@ -31,4 +31,4 @@ my $attr = SomeClass->meta->get_attribut
is($attr->get_value(SomeClass->new()), 'Six');
is(SomeClass->new()->foo, 'Six');
-done_testing;
+#done_testing;
Index: t/type_constraints/type_names.t
===================================================================
--- t.orig/type_constraints/type_names.t
+++ t/type_constraints/type_names.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Moose::Meta::TypeConstraint;
@@ -43,4 +43,4 @@ is( Moose::Util::TypeConstraints::find_o
'ArrayRef[Va.lid]',
'find_or_parse_type_constraint returns name for valid name' );
-done_testing;
+#done_testing;
Index: t/type_constraints/type_notation_parser.t
===================================================================
--- t.orig/type_constraints/type_notation_parser.t
+++ t/type_constraints/type_notation_parser.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
BEGIN {
use_ok("Moose::Util::TypeConstraints");
@@ -104,4 +104,4 @@ ok(!Moose::Util::TypeConstraints::_detec
) for keys %split_tests;
}
-done_testing;
+#done_testing;
Index: t/type_constraints/types_and_undef.t
===================================================================
--- t.orig/type_constraints/types_and_undef.t
+++ t/type_constraints/types_and_undef.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
@@ -107,4 +107,4 @@ isnt( exception { $foo->v_lazy_Number()
isnt( exception { $foo->v_lazy_Str() }, undef, '... undef is NOT a Foo->Str' );
isnt( exception { $foo->v_lazy_String() }, undef, '... undef is NOT a Foo->String' );
-done_testing;
+#done_testing;
Index: t/type_constraints/union_types.t
===================================================================
--- t.orig/type_constraints/union_types.t
+++ t/type_constraints/union_types.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
BEGIN {
use_ok('Moose::Util::TypeConstraints');
@@ -81,4 +81,4 @@ is($HashOrArray->validate(50),
'Validation failed for \'ArrayRef\' with value 50 and Validation failed for \'HashRef\' with value 50 in (ArrayRef|HashRef)',
'... (ArrayRef | HashRef) cannot accept Numbers');
-done_testing;
+#done_testing;
Index: t/type_constraints/union_types_and_coercions.t
===================================================================
--- t.orig/type_constraints/union_types_and_coercions.t
+++ t/type_constraints/union_types_and_coercions.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Test::Requires {
@@ -184,4 +184,4 @@ use Test::Requires {
like( exception { Foo->new( carray => {} ) }, qr/\QValidation failed for 'Coerced|Coerced' with value \E(?!undef)/, 'Cannot pass a hash ref for carray attribute, and hash ref is not coerced to an undef' );
}
-done_testing;
+#done_testing;
Index: t/type_constraints/util_find_type_constraint.t
===================================================================
--- t.orig/type_constraints/util_find_type_constraint.t
+++ t/type_constraints/util_find_type_constraint.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
BEGIN {
use_ok('Moose::Util::TypeConstraints');
@@ -36,4 +36,4 @@ foreach my $type_name (qw(
# TODO:
# add tests for is_subtype_of which confirm the hierarchy
-done_testing;
+#done_testing;
Index: t/type_constraints/util_more_type_coercion.t
===================================================================
--- t.orig/type_constraints/util_more_type_coercion.t
+++ t/type_constraints/util_more_type_coercion.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
@@ -129,4 +129,4 @@ isnt( exception {
like( exception { $tc->assert_coerce('total garbage') }, qr/Validation failed for .HTTPHeader./, "assert_coerce throws if result is not acceptable" );
}
-done_testing;
+#done_testing;
Index: t/type_constraints/util_std_type_constraints.t
===================================================================
--- t.orig/type_constraints/util_std_type_constraints.t
+++ t/type_constraints/util_std_type_constraints.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Scalar::Util ();
@@ -377,4 +377,4 @@ ok(defined RoleName('Quux::Wibble::Role'
close($fh) || die "Could not close the filehandle $0 for test";
-done_testing;
+#done_testing;
Index: t/type_constraints/util_type_coercion.t
===================================================================
--- t.orig/type_constraints/util_type_coercion.t
+++ t/type_constraints/util_type_coercion.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
BEGIN {
@@ -101,4 +101,4 @@ my $tc = find_type_constraint('StrWithTr
is($tc->coerce("foo"), "fooX", "coerce when needed");
is($tc->coerce("fooX"), "fooX", "do not coerce when unneeded");
-done_testing;
+#done_testing;
Index: t/type_constraints/util_type_constraints.t
===================================================================
--- t.orig/type_constraints/util_type_constraints.t
+++ t/type_constraints/util_type_constraints.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
use Test::Fatal;
use Scalar::Util ();
@@ -228,4 +228,4 @@ like( exception {$r->add_type_constraint
ok( ! $subtype->check('Foo'), '... this is not a Natural');
}
-done_testing;
+#done_testing;
Index: t/type_constraints/util_type_constraints_export.t
===================================================================
--- t.orig/type_constraints/util_type_constraints_export.t
+++ t/type_constraints/util_type_constraints_export.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More qw(no_plan);
{
package Foo;
@@ -26,4 +26,4 @@ use Test::More;
::ok( MyArrayRef( [] ), '... ArrayRef worked correctly' );
}
-done_testing;
+#done_testing;
Index: t/type_constraints/util_type_reloading.t
===================================================================
--- t.orig/type_constraints/util_type_reloading.t
+++ t/type_constraints/util_type_reloading.t
@@ -5,7 +5,7 @@ use warnings;
use lib 't/lib', 'lib';
-use Test::More;
+use Test::More qw(no_plan);
$SIG{__WARN__} = sub { 0 };
@@ -26,4 +26,4 @@ delete $INC{'Bar.pm'};
eval { require Bar; };
ok(!$@, '... re-loaded Bar successfully') || diag $@;
-done_testing;
+#done_testing;
