From: Ricardo Signes Date: Mon, 28 Oct 2013 01:52:22 +0000 (-0400) Subject: use_ok stinks; just load the library X-Git-Tag: 0.14~3 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMoose-Autobox.git;a=commitdiff_plain;h=171cd6060ba4bcd6b5d8703b9c3900b5421771ac use_ok stinks; just load the library --- diff --git a/t/001_basic.t b/t/001_basic.t index 17b81ff..a0994d3 100644 --- a/t/001_basic.t +++ b/t/001_basic.t @@ -3,11 +3,7 @@ use strict; use warnings; -use Test::More tests => 70; - -BEGIN { - use_ok('Moose::Autobox'); -} +use Test::More tests => 69; use Moose::Autobox; diff --git a/t/002_role_hierarchy.t b/t/002_role_hierarchy.t index 25773a4..b62269a 100644 --- a/t/002_role_hierarchy.t +++ b/t/002_role_hierarchy.t @@ -3,11 +3,9 @@ use strict; use warnings; -use Test::More tests => 22; +use Test::More tests => 21; -BEGIN { - use_ok('Moose::Autobox'); -} +use Moose::Autobox; ok(Moose::Autobox::SCALAR->does('Moose::Autobox::Scalar'), '... SCALAR does Moose::Autobox::Scalar'); ok(Moose::Autobox::SCALAR->does('Moose::Autobox::String'), '... SCALAR does Moose::Autobox::String'); @@ -36,4 +34,4 @@ ok(Moose::Autobox::CODE->does('Moose::Autobox::Code'), '... CODE does Mo - \ No newline at end of file + diff --git a/t/003_p6_example.t b/t/003_p6_example.t index bead570..b9963f6 100644 --- a/t/003_p6_example.t +++ b/t/003_p6_example.t @@ -3,12 +3,10 @@ use strict; use warnings; -use Test::More tests => 8; +use Test::More tests => 7; use Test::Exception; -BEGIN { - use_ok('Moose::Autobox'); -} +require Moose::Autobox; =pod diff --git a/t/004_list_compressions.t b/t/004_list_compressions.t index 4721dfa..d01f791 100644 --- a/t/004_list_compressions.t +++ b/t/004_list_compressions.t @@ -3,11 +3,7 @@ use strict; use warnings; -use Test::More tests => 5; - -BEGIN { - use_ok('Moose::Autobox'); -} +use Test::More tests => 4; use Moose::Autobox; diff --git a/t/005_string.t b/t/005_string.t index e296653..8b252aa 100644 --- a/t/005_string.t +++ b/t/005_string.t @@ -3,13 +3,9 @@ use strict; use warnings; -use Test::More tests => 23; +use Test::More tests => 22; use Test::Exception; -BEGIN { - use_ok('Moose::Autobox'); -} - use Moose::Autobox; my $VAR1; # for eval of dumps diff --git a/t/006_y_combinator.t b/t/006_y_combinator.t index aea470e..f6798fc 100644 --- a/t/006_y_combinator.t +++ b/t/006_y_combinator.t @@ -3,13 +3,9 @@ use strict; use warnings; -use Test::More tests => 3; +use Test::More tests => 2; use Test::Exception; -BEGIN { - use_ok('Moose::Autobox'); -} - use Moose::Autobox; # we need a control in the experiment diff --git a/t/007_base.t b/t/007_base.t index 2453723..e3822b6 100644 --- a/t/007_base.t +++ b/t/007_base.t @@ -3,9 +3,9 @@ use strict; use warnings; -use Test::More tests => 5; +use Test::More tests => 4; -use_ok("Moose::Autobox"); +use Moose::Autobox (); foreach my $stem (qw(SCALAR ARRAY HASH CODE)) { my $class = "Moose::Autobox::${stem}"; diff --git a/t/009_number.t b/t/009_number.t index 16b9b1f..574a909 100644 --- a/t/009_number.t +++ b/t/009_number.t @@ -3,11 +3,7 @@ use strict; use warnings; -use Test::More tests => 4; - -BEGIN { - use_ok('Moose::Autobox'); -} +use Test::More tests => 3; use Moose::Autobox;