The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;

use LWP::ConsoleLogger::Easy qw( debug_ua );
use LWP::UserAgent ();
use Path::Tiny qw( path );
use Test::FailWarnings;
use Test::More;

my $mech = LWP::UserAgent->new;
debug_ua($mech);

my $res
    = $mech->get( 'file:///' . path('t/test-data/unicode.html')->absolute );
is( $res->code, 200, 'got unicode file' );

done_testing();