/t/010_core/request-hostname.t

http://github.com/http-engine/HTTP-Engine · Raku · 19 lines · 12 code · 5 blank · 2 comment · 0 complexity · 6475584b3ac9e99e1f43030cb089b319 MD5 · raw file 

    

  1. use strict;
    2. 

  2. use warnings;
    3. 

  3. use Test::More;
    4. 

  4. use HTTP::Engine::Request;
    5. 

  5. use t::Utils;
    6. 

  6. 

  7. plan tests => 2;
    8. 

  8. 

  9. # get hostname by REMOTE_HOST
    10. 

  10. $ENV{REMOTE_HOST} = "mudage.example.com";
    11. 

  11. is _get(), "mudage.example.com";
    12. 

  12. 

  13. # get hostname by REMOTE_ADDR
    14. 

  14. $ENV{REMOTE_HOST} = '';
    15. 

  15. $ENV{REMOTE_ADDR} = "127.0.0.1";
    16. 

  16. ok _get();
    17. 

  17. 

  18. sub _get { req()->hostname }
    19.