summaryrefslogtreecommitdiffstats
path: root/t
diff options
context:
space:
mode:
Diffstat (limited to 't')
-rw-r--r--t/01-basic.t11
-rw-r--r--t/02-read-write.t11
-rw-r--r--t/03-write-to-termcast.t9
3 files changed, 14 insertions, 17 deletions
diff --git a/t/01-basic.t b/t/01-basic.t
index f353c42..48bea2c 100644
--- a/t/01-basic.t
+++ b/t/01-basic.t
@@ -2,13 +2,10 @@
use strict;
use warnings;
use Test::More;
-use App::Termcast;
+use Test::Requires 'Test::TCP';
use IO::Pty::Easy;
-BEGIN {
- eval "use Test::TCP;";
- plan skip_all => "Test::TCP is required for this test" if $@;
- plan tests => 3;
-}
+
+use App::Termcast;
test_tcp(
client => sub {
@@ -43,3 +40,5 @@ EOF
is($output, "foo", 'sent the right data to the server');
},
);
+
+done_testing;
diff --git a/t/02-read-write.t b/t/02-read-write.t
index 5fd6baa..a970ddd 100644
--- a/t/02-read-write.t
+++ b/t/02-read-write.t
@@ -2,13 +2,10 @@
use strict;
use warnings;
use Test::More;
-use App::Termcast;
+use Test::Requires 'Test::TCP';
use IO::Pty::Easy;
-BEGIN {
- eval "use Test::TCP;";
- plan skip_all => "Test::TCP is required for this test" if $@;
- plan tests => 5;
-}
+
+use App::Termcast;
test_tcp(
client => sub {
@@ -58,3 +55,5 @@ EOF
'sent the right data to the server');
},
);
+
+done_testing;
diff --git a/t/03-write-to-termcast.t b/t/03-write-to-termcast.t
index 1e505f2..6e65e82 100644
--- a/t/03-write-to-termcast.t
+++ b/t/03-write-to-termcast.t
@@ -2,12 +2,9 @@
use strict;
use warnings;
use Test::More;
+use Test::Requires 'Test::TCP';
+
use App::Termcast;
-BEGIN {
- eval "use Test::TCP;";
- plan skip_all => "Test::TCP is required for this test" if $@;
- plan tests => 3;
-}
test_tcp(
client => sub {
@@ -38,3 +35,5 @@ test_tcp(
is($buf, 'foo', 'wrote correctly');
},
);
+
+done_testing;