[ViewVC] Diff of: cvs/AnyEvent/t/handle/04

Comparing AnyEvent/t/handle/04_listen.t (file contents):
Revision 1.9 by root, Sat May 17 21:08:05 2008 UTC vs.
Revision 1.14 by root, Sat May 24 23:15:14 2008 UTC

 use strict;
 use AnyEvent::Impl::Perl;
 use AnyEvent::Handle;
+use AnyEvent::Socket;
-use AnyEvent::Util;
+use AnyEvent;
 my $lbytes;
 my $rbytes;
 print "1..2\n";
 my $cv = AnyEvent->condvar;
 my $hdl;
 my $port;
-my $w = AnyEvent::Util::tcp_server undef, undef,
+my $w = tcp_server undef, undef,
    sub {
       my ($fh, $host, $port) = @_;
       $hdl = AnyEvent::Handle->new (fh => $fh, on_eof => sub { $cv->broadcast });
-      $hdl->push_read_chunk (6, sub {
+      $hdl->push_read (chunk => 6, sub {
          my ($hdl, $data) = @_;
          if ($data eq "TEST\015\012") {
             print "ok 1 - server received client data\n";
          } else {
       ($port) = Socket::unpack_sockaddr_in getsockname $_[0];
       0
    };
 my $clhdl;
-my $wc = AnyEvent::Util::tcp_connect localhost => $port, sub {
+my $wc = tcp_connect localhost => $port, sub {
-   my ($fh) = @_;
+   my ($fh) = @_
+      or die "connect: $!";
    $clhdl = AnyEvent::Handle->new (fh => $fh, on_eof => sub { $cv->broadcast });
    $clhdl->push_write ("TEST\015\012");
-   $clhdl->push_read_line (sub {
+   $clhdl->push_read (line => sub {
       my ($clhdl, $line) = @_;
       if ($line eq 'BLABLABLA') {
          print "ok 2 - client received response\n";
       } else {

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines