# tracking.t
use strict; use warnings;
use Test::More;
use Parallel::ForkManager;
use HTTP::Tiny;
use List::Util qw( all );
use Path::Tiny;

my $log_file = '/tmp/test.log';

path( $log_file )->append( { truncate => 1 }, '' );

my $url = 'http://localhost:8080/hello';

my $pm = new Parallel::ForkManager(50);

my $ua = HTTP::Tiny->new;

for ( 1 .. 10_000 ) {
    $pm->start and next;
    my $res = $ua->get( $url );
    $pm->finish;
}

$pm->wait_all_children;

my %ids;
my $count = 0;
for ( path( $log_file )->lines({ chomp => 1 }) ) {
    $count++;
    (my $id) = /"([^"]*)/;
    $ids{ $id }++;
}

is( $count, 20_000,                   '20,000 lines in the log file' );
is( scalar keys %ids, 10_000,         '10,000 IDs' );
ok( (all { $_ == 2 } values( %ids )), 'each key was seen twice' );

done_testing;
__END__