1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
use strict;
use Test::More tests => 4;
use WWW::Curl::Easy;
use WWW::Curl::Multi;
my ( $header, $body, $header2, $body2 );
sub header_callback {
my $chunk = shift;
$header .= $chunk;
return length($chunk);
}
sub body_callback {
my ( $chunk, $handle ) = @_;
$body .= $chunk;
return length($chunk);
}
sub header_callback2 {
my $chunk = shift;
$header2 .= $chunk;
return length($chunk);
}
sub body_callback2 {
my ( $chunk, $handle ) = @_;
$body2 .= $chunk;
return length($chunk);
}
SKIP: {
skip 'You need to set CURL_TEST_URL', 4 unless $ENV{CURL_TEST_URL};
my $curl = new WWW::Curl::Easy;
$curl->setopt( CURLOPT_URL, $ENV{CURL_TEST_URL} );
$curl->setopt( CURLOPT_HEADERFUNCTION, \&header_callback );
$curl->setopt( CURLOPT_WRITEFUNCTION, \&body_callback );
my $curl2 = new WWW::Curl::Easy;
$curl2->setopt( CURLOPT_URL, $ENV{CURL_TEST_URL} );
$curl2->setopt( CURLOPT_HEADERFUNCTION, \&header_callback2 );
$curl2->setopt( CURLOPT_WRITEFUNCTION, \&body_callback2 );
my $curlm = new WWW::Curl::Multi;
$curlm->add_handle($curl);
$curlm->add_handle($curl2);
$curlm->perform;
ok($header);
ok($body);
ok($header2);
ok($body2);
}
|
