### ----------------------------------------------------
### -- Net::HTTP
### -- Licenses: Artistic-2.0
### -- Authors: ugexe
### -- File: t/01-utils.rakutest
### ----------------------------------------------------
use Test:ver<6.c+>;
plan 1;

use Net::HTTP::Utils;

subtest 'Header case works [&hc]' => {
    is hc("content-tyPE"),      'Content-Type',      'The basics';
    is hc("X-XSS-Blah"),        'X-Xss-Blah',        'Not perfect, but good enough';
    is hc("Transfer-encoding"), 'Transfer-Encoding';

}

done-testing;


