Blob Blame History Raw
diff -up Test-Mojibake-0.4/t/06-pp-vs-xs.t.orig Test-Mojibake-0.4/t/06-pp-vs-xs.t
--- Test-Mojibake-0.4/t/06-pp-vs-xs.t.orig	2012-06-25 20:36:58.000000000 +0100
+++ Test-Mojibake-0.4/t/06-pp-vs-xs.t	2012-06-26 13:01:09.341933492 +0100
@@ -1,7 +1,7 @@
 #!perl -T
 use strict;
 
-use Test::More;
+use Test::More 'no_plan';
 
 BEGIN {
     use_ok('Benchmark', 'countit');
@@ -10,7 +10,6 @@ BEGIN {
 
 unless ($Test::Mojibake::use_xs) {
     diag('No XS module detected, will fallback to PP implementation!');
-    done_testing(2);
     exit;
 }
 
@@ -33,8 +32,6 @@ ok($t0->iters > $t1->iters, 'XS faster t
 
 diag(sprintf('XS/PP speed ratio is %0.2f', $t0->iters / $t1->iters));
 
-done_testing(7);
-
 sub run {
     my $i = 0;
     for (@buf) {
diff -up Test-Mojibake-0.4/t/07-broken-utf8.t.orig Test-Mojibake-0.4/t/07-broken-utf8.t
--- Test-Mojibake-0.4/t/07-broken-utf8.t.orig	2012-06-25 20:36:58.000000000 +0100
+++ Test-Mojibake-0.4/t/07-broken-utf8.t	2012-06-26 13:01:09.356933495 +0100
@@ -24,7 +24,7 @@ my @tests = (
     ["11-overlong-5"    => 0 => \"\xfc\x80\x80\x80\x80\xaf"],
 );
 
+plan tests => scalar @tests;
+
 ok(Test::Mojibake::_detect_utf8($_->[2]) == $_->[1], $_->[0])
     for @tests;
-
-done_testing(scalar @tests);
diff -up Test-Mojibake-0.4/t/release-cpan-changes.t.orig Test-Mojibake-0.4/t/release-cpan-changes.t
--- Test-Mojibake-0.4/t/release-cpan-changes.t.orig	2012-06-25 20:36:58.000000000 +0100
+++ Test-Mojibake-0.4/t/release-cpan-changes.t	2012-06-26 13:01:09.356933495 +0100
@@ -1,15 +1,11 @@
 #!perl
 
+use Test::More;
+
 BEGIN {
-  unless ($ENV{RELEASE_TESTING}) {
-    require Test::More;
-    Test::More::plan(skip_all => 'these tests are for release candidate testing');
-  }
+  plan skip_all => 'these tests are for release candidate testing' unless ($ENV{RELEASE_TESTING});
+  eval 'use Test::CPAN::Changes';
+  plan skip_all => 'Test::CPAN::Changes required for this test' if $@;
 }
 
-
-use Test::More;
-eval 'use Test::CPAN::Changes';
-plan skip_all => 'Test::CPAN::Changes required for this test' if $@;
 changes_ok();
-done_testing();
diff -up Test-Mojibake-0.4/t/release-test-version.t.orig Test-Mojibake-0.4/t/release-test-version.t
--- Test-Mojibake-0.4/t/release-test-version.t.orig	2012-06-26 13:01:09.000000000 +0100
+++ Test-Mojibake-0.4/t/release-test-version.t	2012-06-26 13:01:53.073948449 +0100
@@ -27,4 +27,3 @@ push @imports, $params
 Test::Version->import(@imports);
 
 version_all_ok();
-done_testing;