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.7 by root, Sat May 17 21:08:05 2008 UTC vs.
Revision 1.8 by root, Fri May 23 17:47:06 2008 UTC

… …
2 2
3use strict; 3use strict;
4 4
5use AnyEvent::Impl::Perl; 5use AnyEvent::Impl::Perl;
6use AnyEvent; 6use AnyEvent;
7use AnyEvent::Socket;
7use AnyEvent::Handle; 8use AnyEvent::Handle;
8 9
9unless ($ENV{PERL_ANYEVENT_NET_TESTS}) { 10unless ($ENV{PERL_ANYEVENT_NET_TESTS}) {
10 print "1..0 # Skip PERL_ANYEVENT_NET_TESTS environment variable not set\n"; 11 print "1..0 # Skip PERL_ANYEVENT_NET_TESTS environment variable not set\n";
11 exit 0; 12 exit 0;
… …
16my $cv = AnyEvent->condvar; 17my $cv = AnyEvent->condvar;
17 18
18my $rbytes; 19my $rbytes;
19 20
20my $hdl; 21my $hdl;
21my $wo = AnyEvent::Util::tcp_connect 'www.google.com', 80, sub { 22my $wo = tcp_connect 'www.google.com', 80, sub {
22 my ($sock) = @_; 23 my ($sock) = @_;
23 $hdl = 24 $hdl =
24 AnyEvent::Handle->new ( 25 AnyEvent::Handle->new (
25 fh => $sock, 26 fh => $sock,
26 on_error => sub { 27 on_error => sub {

Diff Legend

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