t/new/05progress.t


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

use strict;
use Test::More tests => 3;
use WWW::Curl::Easy;

my ( $progress, $last );

sub progress_callback {
    my ( $clientp, $dltotal, $dlnow, $ultotal, $ulnow ) = @_;
    $last = $dlnow;
    $progress++;
    return 0;
}

SKIP: {
    skip 'You need to set CURL_TEST_URL', 3 unless $ENV{CURL_TEST_URL};
    my $curl = new WWW::Curl::Easy;
    $curl->setopt( CURLOPT_URL,              $ENV{CURL_TEST_URL} );
    $curl->setopt( CURLOPT_NOPROGRESS,       1 );
    $curl->setopt( CURLOPT_NOPROGRESS,       0 );
    $curl->setopt( CURLOPT_PROGRESSFUNCTION, \&progress_callback );
    my $code = $curl->perform;
    ok( $code == 0 );
    ok($progress);
    ok($last);
}