HTTP-Server-Tiny.t

use v6;
use Test;

use lib 't/lib/';
use Test::TCP;
use Crust::Handler::HTTP::Server::Tiny;
use HTTP::Tinyish;

my $port = 15555;

Thread.start({
    my $handler = Crust::Handler::HTTP::Server::Tiny.new(
        host => '127.0.0.1',
        port => $port
    );
    $handler.run(-> $env {
        start { 200, [], ['ok'] }
    });
});

wait_port($port);

my $resp = HTTP::Tinyish.new().get("http://127.0.0.1:$port/");
ok $resp<success>;
is $resp<content>, 'ok';

done-testing;

exit 0; # There is no way to kill the server thread.