Changeset 17780 for lang/perl/Test-TCP/trunk

Timestamp:

08/17/08 15:26:24 (5 years ago)

Author:

tokuhirom

Message:

added test case

Files:

• lang/perl/Test-TCP/trunk/t/01_simple.t (modified) (2 diffs)

lang/perl/Test-TCP/trunk/t/01_simple.t

@@ -31 +31 @@
 use strict;
 use warnings;
-use Test::More tests => 1;
+use Test::More tests => 2;
 use Test::TCP;
 use IO::Socket::INET;
@@ -46 +46 @@
         my $res = <$sock>;
         is $res, "foo\n";
+        print {$sock} "bar\n";
+        my $res2 = <$sock>;
+        is $res2, "bar\n";
     },
     server => sub {