/t/010_core/response-coerce_headers.t

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

    

  1. use strict;
    2. 

  2. use warnings;
    3. 

  3. use Test::More tests => 1;
    4. 

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

  5. 

  6. my $res = HTTP::Engine::Response->new(
    7. 

  7.     headers => {
    8. 

  8.         'X-Foo' => 'bar',
    9. 

  9.     },
    10. 

  10. );
    11. 

  11. is $res->header('X-Foo'), 'bar';
    12.