cleanups, dzil stuff, etc

7 files changed, 23 insertions, 18 deletions

diff --git a/t/000-load.t b/t/000-load.t
deleted file mode 100644
index 982a1ef..0000000
--- a/t/000-load.t
+++ /dev/null
@@ -1,7 +0,0 @@
-#!perl
-use strict;
-use warnings;
-use Test::More tests => 1;
-
-use_ok 'IO::Pty::Easy';
-
diff --git a/t/001-open-close.t b/t/open-close.t
index 1c9eed1..6140821 100644
--- a/t/001-open-close.t
+++ b/t/open-close.t
@@ -1,9 +1,11 @@
-#!perl
+#!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More tests => 1;
+use Test::More;
 use IO::Pty::Easy;
 
 my $pty = IO::Pty::Easy->new;
 $pty->close;
 ok(!$pty->opened, "closing a pty before a spawn");
+
+done_testing;
diff --git a/t/010-read-write.t b/t/read-write.t
index 80f5f1e..21fe729 100644
--- a/t/010-read-write.t
+++ b/t/read-write.t
@@ -1,7 +1,7 @@
-#!perl
+#!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More tests => 5;
+use Test::More;
 use IO::Pty::Easy;
 
 my $pty = IO::Pty::Easy->new;
@@ -46,3 +46,5 @@ TODO: {
 # with the exit status of the signal that the subprocess dies with, so we have
 # to kill the subprocess before exiting.
 $pty->close;
+
+done_testing;
diff --git a/t/002-spawn.t b/t/spawn.t
index 620a57a..9bdc498 100644
--- a/t/002-spawn.t
+++ b/t/spawn.t
@@ -1,7 +1,7 @@
-#!perl
+#!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More tests => 5;
+use Test::More;
 use IO::Pty::Easy;
 
 my $pty = IO::Pty::Easy->new;
@@ -14,3 +14,5 @@ $pty->spawn("$^X -ple ''");
 $pty->close;
 ok(!$pty->is_active, "auto-killing a pty with close()");
 ok(!$pty->opened, "closing a pty after a spawn");
+
+done_testing;
diff --git a/t/003-subprocess.t b/t/subprocess.t
index cc87025..d889074 100644
--- a/t/003-subprocess.t
+++ b/t/subprocess.t
@@ -1,7 +1,7 @@
-#!perl
+#!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More tests => 2;
+use Test::More;
 use IO::Pty::Easy;
 
 my $pty = IO::Pty::Easy->new;
@@ -19,3 +19,5 @@ $script .= "sleep 1 while 1;";
 $pty->spawn("$^X -e '$script'");
 like($pty->read, qr/ok/, "runs subprocess in a pty");
 $pty->close;
+
+done_testing;
diff --git a/t/100-system.t b/t/system.t
index 0be6006..c6fb29e 100644
--- a/t/100-system.t
+++ b/t/system.t
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More tests => 4;
+use Test::More;
 use IO::Pty::Easy;
 
 my $pty = IO::Pty::Easy->new;
@@ -26,3 +26,5 @@ eval {
 isnt($@, "alarm2\n", "system() didn't time out (after kill)");
 is($output, "bar", "system() got the right value (after kill)");
 $pty->close;
+
+done_testing;
diff --git a/t/004-undefined-program.t b/t/undefined-program.t
index 335a415..f53d065 100644
--- a/t/004-undefined-program.t
+++ b/t/undefined-program.t
@@ -1,7 +1,7 @@
-#!perl
+#!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More tests => 2;
+use Test::More;
 use IO::Pty::Easy;
 
 my $pty = IO::Pty::Easy->new;
@@ -13,3 +13,5 @@ eval {
 };
 like($@, qr/Cannot exec\(missing_program_io_pty_easy\)/);
 ok(!$pty->is_active, "pty isn't active if program doesn't exist");
+
+done_testing;