'>', 3, 'got at least 3 headers' );
cmp_ok( length $curl->content, '==', 26, 'got some body' );
isnt( $curl->{referer}, '', 'referer updarted' );
} );
$curl->join;
is( $got, 1, 'request did block'
>', 3, 'got at least 3 headers' );
cmp_ok( length $curl->content, '>', 1000, 'got some body' );
isnt( $curl->{referer}, '', 'referer updarted' );
}
Net::Curl::Simple->join;
is( $got, 2, 'performed
', 3, 'got at least 3 headers' );
cmp_ok( length $curl->content, '==', 2000, 'got some body' );
isnt( $curl->{referer}, '', 'referer updarted' );
};
my $cb = async {
is( $pos, 2, 'did not block' )
', 3, 'got at least 3 headers' );
cmp_ok( length $curl->content, '==', 2000, 'got some body' );
isnt( $curl->{referer}, '', 'referer updarted' );
};
cede;
$ca->join;
$cb->join;
diag( 'loaded imple
'>', 3, 'got at least 3 headers' );
cmp_ok( length $curl->content, '==', 26, 'got some body' );
isnt( $curl->{referer}, '', 'referer updarted' );
$curl->get( '/repeat', \&finish2 );
} );
sub fini
>', 3, 'got at least 3 headers' );
cmp_ok( length $curl->content, '>', 1000, 'got some body' );
isnt( $curl->{referer}, '', 'referer updarted' );
}
is( $got, 0, 'request did not block' );
1 while
', 3, 'got at least 3 headers' );
cmp_ok( length $curl->content, '==', 2000, 'got some body' );
isnt( $curl->{referer}, '', 'referer updarted' );
};
my $cb = async {
is( $pos, 2, 'did not block' )
', 3, 'got at least 3 headers' );
cmp_ok( length $curl->content, '==', 2000, 'got some body' );
isnt( $curl->{referer}, '', 'referer updarted' );
};
cede;
$ca->join;
$cb->join;
diag( 'loaded imple
'>', 3, 'got at least 3 headers' );
cmp_ok( length $curl->content, '==', 26, 'got some body' );
isnt( $curl->{referer}, '', 'referer updarted' );
$curl->get( '/repeat', \&finish2 );
} );
sub fini
>', 3, 'got at least 3 headers' );
cmp_ok( length $curl->content, '>', 1000, 'got some body' );
isnt( $curl->{referer}, '', 'referer updarted' );
}
is( $got, 0, 'request did not block' );
1 while
'>', 3, 'got at least 3 headers' );
cmp_ok( length $curl->content, '==', 26, 'got some body' );
isnt( $curl->{referer}, '', 'referer updarted' );
$curl->get( '/repeat', \&finish2 );
} );
sub fini
>', 3, 'got at least 3 headers' );
cmp_ok( length $curl->content, '>', 1000, 'got some body' );
isnt( $curl->{referer}, '', 'referer updarted' );
}
is( $got, 0, 'request did not block' );
1 while
'>', 3, 'got at least 3 headers' );
cmp_ok( length $curl->content, '==', 26, 'got some body' );
isnt( $curl->{referer}, '', 'referer updarted' );
$curl->get( '/repeat', \&finish2 );
} );
sub fini
>', 3, 'got at least 3 headers' );
cmp_ok( length $curl->content, '>', 1000, 'got some body' );
isnt( $curl->{referer}, '', 'referer updarted' );
}
is( $got, 0, 'request did not block' );
1 while
', 3, 'got at least 3 headers' );
cmp_ok( length $curl->content, '==', 2000, 'got some body' );
isnt( $curl->{referer}, '', 'referer updarted' );
};
my $cb = async {
is( $pos, 2, 'did not block' )
', 3, 'got at least 3 headers' );
cmp_ok( length $curl->content, '==', 2000, 'got some body' );
isnt( $curl->{referer}, '', 'referer updarted' );
};
cede;
$ca->join;
$cb->join;
diag( 'loaded imple
'>', 3, 'got at least 3 headers' );
cmp_ok( length $curl->content, '==', 26, 'got some body' );
isnt( $curl->{referer}, '', 'referer updarted' );
$curl->get( '/repeat', \&finish2 );
} );
sub fini
>', 3, 'got at least 3 headers' );
cmp_ok( length $curl->content, '>', 1000, 'got some body' );
isnt( $curl->{referer}, '', 'referer updarted' );
}
is( $got, 0, 'request did not block' );
1 while
'>', 3, 'got at least 3 headers' );
cmp_ok( length $curl->content, '>', 1000, 'got some body' );
isnt( $curl->{referer}, '', 'referer updarted' );
$curl->{code} = undef;
$curl->get( '/repeat/1000' )
got body scalar' );
cmp_ok( scalar $curl->headers, '>', 3, 'got at least 3 headers' );
cmp_ok( length $curl->content, '==', 1000, 'got some body' );
isnt( $curl->{referer}, '', 'referer updarted' );
', 3, 'got at least 3 headers' );
cmp_ok( length $curl->content, '==', 2000, 'got some body' );
isnt( $curl->{referer}, '', 'referer updarted' );
};
my $cb = async {
is( $pos, 2, 'did not block' )
', 3, 'got at least 3 headers' );
cmp_ok( length $curl->content, '==', 2000, 'got some body' );
isnt( $curl->{referer}, '', 'referer updarted' );
};
cede;
$ca->join;
$cb->join;
diag( 'loaded imple