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

Comparing AnyEvent/t/handle/04_listen.t (file contents):
Revision 1.5 by root, Fri May 2 09:07:02 2008 UTC vs.
Revision 1.6 by elmex, Fri May 2 09:15:34 2008 UTC

 my $cv = AnyEvent->condvar;
 my $lsock =
    AnyEvent::Socket->new (
       Listen => 1,
-      LocalPort => 32391,
       ReuseAddr => 1,
    );
+$lsock->on_accept (sub {
+   my ($lsock, $cl, $paddr) = @_;
+   unless (defined $cl) {
+      diag "accept failed: $!";
+      return;
+   }
+   $cl->read (6, sub {
+      my ($cl, $data) = @_;
+      $lbytes = $data;
+      $cl->write ("BLABLABLA\015\012");
+   });
+});
 my $ae_sock =
    AnyEvent::Socket->new (
-      PeerAddr => "127.0.0.1:32391",
+      PeerAddr => "127.0.0.1:" . $lsock->fh->sockport,
       on_connect => sub {
          my ($ae_sock, $error) = @_;
          if ($error) { diag "connection failed: $!"; $cv->broadcast; return }
          print "connected to ".$ae_sock->fh->peerhost.":".$ae_sock->fh->peerport."\n";
       }
    );
 $ae_sock->on_eof (sub { $cv->broadcast });
-$lsock->on_accept (sub {
-   my ($lsock, $cl, $paddr) = @_;
-   unless (defined $cl) {
-      diag "accept failed: $!";
-      return;
-   }
-   $cl->read (6, sub {
-      my ($cl, $data) = @_;
-      $lbytes = $data;
-      $cl->write ("BLABLABLA\015\012");
-   });
-});
 $cv->wait;
 is ($lbytes, "TEST\015\012", 'listening end received data');
 is ($rbytes, "BLABLABLA\015\012", 'connecting received response');

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