ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/AnyEvent/t/handle/03_http_req.t
(Generate patch)

Comparing AnyEvent/t/handle/03_http_req.t (file contents):
Revision 1.6 by elmex, Thu May 15 14:12:24 2008 UTC vs.
Revision 1.7 by root, Sat May 17 21:08:05 2008 UTC

1#!/opt/perl/bin/perl 1#!/opt/perl/bin/perl
2
2use strict; 3use strict;
4
3use AnyEvent::Impl::Perl; 5use AnyEvent::Impl::Perl;
4use AnyEvent; 6use AnyEvent;
5use AnyEvent::Socket; 7use AnyEvent::Handle;
6 8
7unless ($ENV{PERL_ANYEVENT_NET_TESTS}) { 9unless ($ENV{PERL_ANYEVENT_NET_TESTS}) {
8 print "1..0 # Skip PERL_ANYEVENT_NET_TESTS environment variable not set\n"; 10 print "1..0 # Skip PERL_ANYEVENT_NET_TESTS environment variable not set\n";
9 exit 0; 11 exit 0;
10} 12}
… …
14my $cv = AnyEvent->condvar; 16my $cv = AnyEvent->condvar;
15 17
16my $rbytes; 18my $rbytes;
17 19
18my $hdl; 20my $hdl;
19my $wo = AnyEvent::Util::tcp_connect ('www.google.com', 80, sub { 21my $wo = AnyEvent::Util::tcp_connect 'www.google.com', 80, sub {
20 my ($sock) = @_; 22 my ($sock) = @_;
21 $hdl = 23 $hdl =
22 AnyEvent::Handle->new ( 24 AnyEvent::Handle->new (
23 fh => $sock, 25 fh => $sock,
24 on_error => sub { 26 on_error => sub {
… …
55 }); 57 });
56 }); 58 });
57 59
58 $hdl->push_write ("GET http://www.google.com/ HTTP/1.0\015\012\015\012"); 60 $hdl->push_write ("GET http://www.google.com/ HTTP/1.0\015\012\015\012");
59 61
60}, sub { 62};
61 warn "error on connect: $!";
62}, 10);
63 63
64$cv->wait; 64$cv->wait;

Diff Legend

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