File perl-IO-Handle-Util-no_plan.patch of Package perl-IO-Handle-Util

Overview Repositories Revisions Requests Users Attributes Meta

File perl-IO-Handle-Util-no_plan.patch of Package perl-IO-Handle-Util (Revision 0451b020ed7874d09cf20f82b3c6309b)

Currently displaying revision 0451b020ed7874d09cf20f82b3c6309b , Show latest

--- t/prototype_fallback.t.orig	2010-11-05 10:48:24.000000000 +0100
+++ t/prototype_fallback.t	2010-11-05 10:48:39.000000000 +0100
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More;
+use Test::More qw(no_plan);
 
 use ok 'IO::Handle::Prototype::Fallback';
 
@@ -273,6 +273,5 @@
     );
 });
 
-done_testing;
 
 # ex: set sw=4 et:
--- t/iterator.t.orig	2010-11-05 10:47:51.000000000 +0100
+++ t/iterator.t	2010-11-05 10:48:04.000000000 +0100
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More;
+use Test::More qw(no_plan);
 
 use ok 'IO::Handle::Iterator';
 use ok 'IO::Handle::Util' => qw(io_from_array);
@@ -56,6 +56,5 @@
 
 ok( $fh->eof, "eof" );
 
-done_testing;
 
 # ex: set sw=4 et:
--- t/prototype.t.orig	2010-11-05 10:48:45.000000000 +0100
+++ t/prototype.t	2010-11-05 10:48:54.000000000 +0100
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More;
+use Test::More qw(no_plan);
 
 use ok 'IO::Handle::Prototype';
 
@@ -30,6 +30,5 @@
 eval { $fh->write("foo") };
 like( $@, qr/write/, "dies on missing callback" );
 
-done_testing;
 
 # ex: set sw=4 et:
--- t/basic.t.orig	2010-11-05 10:48:11.000000000 +0100
+++ t/basic.t	2010-11-05 10:48:19.000000000 +0100
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More;
+use Test::More qw(no_plan);
 
 use ok 'IO::Handle::Util' => qw(:all);
 
@@ -326,7 +326,6 @@
     ok( is_real_fh($fh), "real fh" );
 }
 
-done_testing;
 
 # ex: set sw=4 et:

Places

File perl-IO-Handle-Util-no_plan.patch of Package perl-IO-Handle-Util (Revision 0451b020ed7874d09cf20f82b3c6309b)

Places