done_testing

5 files changed, 11 insertions, 5 deletions

diff --git a/t/detect.t b/t/detect.t
index 5104fa0..772365c 100644
--- a/t/detect.t
+++ b/t/detect.t
@@ -5,7 +5,6 @@ use Test::More;
 BEGIN {
     eval "use IO::Pty::Easy;";
     plan skip_all => "IO::Pty::Easy is required for this test" if $@;
-    plan tests => 2;
 }
 
 sub output_like {
@@ -35,3 +34,5 @@ output_like(<<EOF,
 EOF
     qr+<span style=\"color:#880\">foo</span> at -e line 7\b+,
     "detection works for terminal output");
+
+done_testing;
diff --git a/t/eval.t b/t/eval.t
index fbed876..eb33d22 100644
--- a/t/eval.t
+++ b/t/eval.t
@@ -5,7 +5,6 @@ use Test::More;
 BEGIN {
     eval "use IO::Pty::Easy;";
     plan skip_all => "IO::Pty::Easy is required for this test" if $@;
-    plan tests => 2;
 }
 
 sub output_like {
@@ -38,3 +37,5 @@ output_like(<<EOF,
 EOF
     qr/\e\[31m\e\[31mfoo\e\[m\e\[m at -e line 3\.?\n\teval {\.\.\.} called at -e line 3\n\tmain::foo\(\) called at -e line 5\.?\n\tmain::foo\(\) called at -e line 8\n/,
     "rethrowing works inside functions");
+
+done_testing;
diff --git a/t/html.t b/t/html.t
index 1b6188c..046990e 100644
--- a/t/html.t
+++ b/t/html.t
@@ -5,7 +5,6 @@ use Test::More;
 BEGIN {
     eval "use IO::Pty::Easy;";
     plan skip_all => "IO::Pty::Easy is required for this test" if $@;
-    plan tests => 4;
 }
 
 sub output_like {
@@ -49,3 +48,5 @@ output_like(<<EOF,
 EOF
     qr+<span style=\"color:#800\">foo</span> at -e line 3\.?\n\tmain::foo\(\) called at -e line 5\n+,
     "dies with a stacktrace work");
+
+done_testing;
diff --git a/t/object.t b/t/object.t
index 3a88dd3..076727e 100644
--- a/t/object.t
+++ b/t/object.t
@@ -1,10 +1,12 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More tests => 1;
+use Test::More;
 
 use Carp::Always::Color;
 
 my $err = bless({}, 'My::Error::Class');
 eval { die $err };
 is($@, $err, "exception objects aren't affected");
+
+done_testing;
diff --git a/t/term.t b/t/term.t
index 2df6b64..f8af0b3 100644
--- a/t/term.t
+++ b/t/term.t
@@ -5,7 +5,6 @@ use Test::More;
 BEGIN {
     eval "use IO::Pty::Easy;";
     plan skip_all => "IO::Pty::Easy is required for this test" if $@;
-    plan tests => 5;
 }
 
 sub output_like {
@@ -56,3 +55,5 @@ output_like(<<EOF,
 EOF
     qr/\e\[31mfoo at bar line 23\e\[m at -e line 2\b/,
     "weird messages work");
+
+done_testing;