The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::More 'tests' => 1, import => ['!pass'];
use strict;
use warnings;
use utf8;
use File::Spec;

use Dancer ':syntax';
use Dancer::Test;

my $file = path(dirname(__FILE__), "public", "utf8file.txt");

get "/hello" => sub {
    open my $f, "<:utf8", $file;
    chomp(my $line = <$f>);
    $line =~ s/ //g;
    close $f;
    $line
};

response_content_is [GET => "/hello"] => "⋄⋄⋄Hello⋄⋄⋄";