Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
openSUSE:12.1:Update
perl-Moose
perl-Moose-old_Test-More.patch
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
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;
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor