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
|
#!perl -w
use strict;
use Test::Requires qw(Plack::Request HTTP::Body), qw(Test::LeakTrace);
use Test::More;
use Furl;
no_leaks_ok {
my $furl = Furl->new();
my $res = $furl->request(
method => 'GET',
host => 'example.com',
path => '/',
);
$res->is_success or die $res->status_line;
};
my $furl = Furl->new();
no_leaks_ok {
for(1 .. 5) {
my $res = $furl->request(
method => 'GET',
host => 'example.com',
path => '/',
);
$res->is_success or die $res->status_line;
}
};
done_testing;
|
