use strict;
use warnings;

# To ensure "no leak" in real LWP code, we should test it against HTTP servers.
# However, HTTPS is not required here, so let's use an HTTP site neverssl.com.
use Test::RequiresInternet 'neverssl.com' => 80;

use Test::More;
use Test::Needs 'Test::LeakTrace';

use File::Temp ();
use LWP::UserAgent;

plan skip_all => 'skip leak test in COVERAGE' if $ENV{COVERAGE};

my ($tempfh, $tempfile) = File::Temp::tempfile(UNLINK => 0);
close $tempfh;

Test::LeakTrace::no_leaks_ok(sub {
    my $ua = LWP::UserAgent->new;
    my $res = $ua->get("http://neverssl.com/", ':content_file' => $tempfile);
});

unlink $tempfile;

done_testing;