diff -up Data-Section-Simple-0.04/t/basic.t.orig Data-Section-Simple-0.04/t/basic.t
--- Data-Section-Simple-0.04/t/basic.t.orig	2013-03-29 00:50:51.000000000 +0000
+++ Data-Section-Simple-0.04/t/basic.t	2013-04-01 14:13:21.566927338 +0100
@@ -1,6 +1,6 @@
 use strict;
 use Data::Section::Simple qw(get_data_section);
-use Test::More;
+use Test::More tests => 3;
 
 my $x = get_data_section();
 is_deeply [ sort keys %$x ], [ qw(bar.tt foo.html) ];
@@ -19,8 +19,6 @@ bar
 
 TT
 
-done_testing;
-
 __DATA__
 
 @@ foo.html
diff -up Data-Section-Simple-0.04/t/data.t.orig Data-Section-Simple-0.04/t/data.t
--- Data-Section-Simple-0.04/t/data.t.orig	2013-03-29 00:50:51.000000000 +0000
+++ Data-Section-Simple-0.04/t/data.t	2013-04-01 14:13:21.566927338 +0100
@@ -1,6 +1,6 @@
 use lib "t";
 use DataInCode;
-use Test::More;
+use Test::More tests => 1;
 use Data::Section::Simple;
 
 my $d = Data::Section::Simple->new('DataInCode');
@@ -8,7 +8,3 @@ my $x = $d->get_data_section;
 
 is $x->{foo}, "bar\n\n";
 
-done_testing;
-
-
-
diff -up Data-Section-Simple-0.04/t/no-datat.t.orig Data-Section-Simple-0.04/t/no-datat.t
--- Data-Section-Simple-0.04/t/no-datat.t.orig	2013-03-29 00:50:51.000000000 +0000
+++ Data-Section-Simple-0.04/t/no-datat.t	2013-04-01 14:14:04.310838315 +0100
@@ -1,7 +1,5 @@
 use strict;
 use Data::Section::Simple qw(get_data_section);
-use Test::More;
+use Test::More tests => 1;
 
 is get_data_section('foo.html'), undef, 'Do not die.';
-
-done_testing;
diff -up Data-Section-Simple-0.04/t/pkg_oo.t.orig Data-Section-Simple-0.04/t/pkg_oo.t
--- Data-Section-Simple-0.04/t/pkg_oo.t.orig	2013-03-29 00:50:51.000000000 +0000
+++ Data-Section-Simple-0.04/t/pkg_oo.t	2013-04-01 14:13:21.566927338 +0100
@@ -4,7 +4,7 @@ use Data::Section::Simple;
 use lib "t";
 use Foo;
 
-use Test::More;
+use Test::More tests => 3;
 
 my $d = Data::Section::Simple->new('Foo');
 my $x = $d->get_data_section();
@@ -24,5 +24,3 @@ bar
 
 TT
 
-done_testing;
-