/t/020_interface/server_simple-print_banner.t
http://github.com/http-engine/HTTP-Engine · Raku · 33 lines · 32 code · 1 blank · 0 comment · 1 complexity · 703ce62be0215351b697b5741fcd9341 MD5 · raw file
- use strict;
- use warnings;
- use t::Utils;
- use Test::More;
- eval "use HTTP::Server::Simple";
- plan skip_all => 'this test requires HTTP::Server::Simple' if $@;
- plan tests => 2;
- use HTTP::Engine;
- use Test::TCP;
- my $host = '127.0.0.1';
- test_tcp(
- client => sub {
- },
- server => sub {
- my $port = shift;
- HTTP::Engine->new(
- interface => {
- module => 'ServerSimple',
- args => {
- host => $host,
- port => $port,
- print_banner => sub {
- my $server = shift;
- is($server->host, $host, 'server host');
- is($server->port, $port, 'server port');
- },
- },
- request_handler => sub {},
- },
- )->run;
- },
- );