From 85db4e0a81e4f81a6fd86f456215be91ba8c4964 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Thu, 14 Apr 2011 02:07:30 -0500 Subject: use Test::Requires and done_testing --- t/02-read-write.t | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) (limited to 't/02-read-write.t') 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; -- cgit v1.2.3-54-g00ecf