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
|
#!perl
use strict;
use warnings;
use Test::More tests => 11;
BEGIN { use_ok( 'WWW::Curl::Easy' ); }
my $url = $ENV{CURL_TEST_URL} || "http://www.google.com";
my $header_called = 0;
sub header_callback { $header_called++; return length($_[0]) };
my $body_called = 0;
sub body_callback {
my ($chunk,$handle)=@_;
$body_called++;
return length($chunk); # OK
}
# Init the curl session
my $curl1 = WWW::Curl::Easy->new();
ok($curl1, 'Curl1 session initialize returns something');
ok(ref($curl1) eq 'WWW::Curl::Easy', 'Curl1 session looks like an object from the WWW::Curl::Easy module');
my $curl2 = WWW::Curl::Easy->new();
ok($curl2, 'Curl2 session initialize returns something');
ok(ref($curl2) eq 'WWW::Curl::Easy', 'Curl2 session looks like an object from the WWW::Curl::Easy module');
for my $handle ($curl1,$curl2) {
$handle->setopt(CURLOPT_NOPROGRESS, 1);
$handle->setopt(CURLOPT_FOLLOWLOCATION, 1);
$handle->setopt(CURLOPT_TIMEOUT, 30);
my $body_ref=\&body_callback;
$handle->setopt(CURLOPT_WRITEFUNCTION, $body_ref);
$handle->setopt(CURLOPT_HEADERFUNCTION, \&header_callback);
}
ok(! $curl1->setopt(CURLOPT_URL, "error:bad-url"), "Setting deliberately bad url succeeds - should return error on perform"); # deliberate error
ok(! $curl2->setopt(CURLOPT_URL, $url), "Setting OK url");
my $code1=$curl1->perform();
ok($code1 != 0, "Curl1 handle fails as expected");
my $code2=$curl2->perform();
ok($code2 == 0, "Curl2 handle succeeds");
ok($header_called, "Header callback works");
ok($body_called, "Body callback works");
|
