use_ok stinks; just load the library
Ricardo Signes [Mon, 28 Oct 2013 01:52:22 +0000 (21:52 -0400)]
t/001_basic.t
t/002_role_hierarchy.t
t/003_p6_example.t
t/004_list_compressions.t
t/005_string.t
t/006_y_combinator.t
t/007_base.t
t/009_number.t

index 17b81ff..a0994d3 100644 (file)
@@ -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;
 
index 25773a4..b62269a 100644 (file)
@@ -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
+     
index bead570..b9963f6 100644 (file)
@@ -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
 
index 4721dfa..d01f791 100644 (file)
@@ -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;
 
index e296653..8b252aa 100644 (file)
@@ -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
index aea470e..f6798fc 100644 (file)
@@ -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
index 2453723..e3822b6 100644 (file)
@@ -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}";
index 16b9b1f..574a909 100644 (file)
@@ -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;