/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

  1. use strict;
  2. use warnings;
  3. use t::Utils;
  4. use Test::More;
  5. eval "use HTTP::Server::Simple";
  6. plan skip_all => 'this test requires HTTP::Server::Simple' if $@;
  7. plan tests => 2;
  8. use HTTP::Engine;
  9. use Test::TCP;
  10. my $host = '127.0.0.1';
  11. test_tcp(
  12. client => sub {
  13. },
  14. server => sub {
  15. my $port = shift;
  16. HTTP::Engine->new(
  17. interface => {
  18. module => 'ServerSimple',
  19. args => {
  20. host => $host,
  21. port => $port,
  22. print_banner => sub {
  23. my $server = shift;
  24. is($server->host, $host, 'server host');
  25. is($server->port, $port, 'server port');
  26. },
  27. },
  28. request_handler => sub {},
  29. },
  30. )->run;
  31. },
  32. );