Show
Ignore:
Timestamp:
08/17/08 15:26:24 (6 years ago)
Author:
tokuhirom
Message:

added test case

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/Test-TCP/trunk/t/01_simple.t

    r17779 r17780  
    3131use strict; 
    3232use warnings; 
    33 use Test::More tests => 1; 
     33use Test::More tests => 2; 
    3434use Test::TCP; 
    3535use IO::Socket::INET; 
     
    4646        my $res = <$sock>; 
    4747        is $res, "foo\n"; 
     48        print {$sock} "bar\n"; 
     49        my $res2 = <$sock>; 
     50        is $res2, "bar\n"; 
    4851    }, 
    4952    server => sub {