| File: | t/http_header_case.t |
| Coverage: | 100.0% |
| line | stmt | bran | cond | sub | time | code |
|---|---|---|---|---|---|---|
| 1 | 1 1 1 | 7110 1 3 | use Test::Most; | |||
| 2 | 1 1 1 | 317 1 4 | use String::CamelSnakeKebab qw/http_header_case/; | |||
| 3 | ||||||
| 4 | 1 | 36573 | my %tests = ( | |||
| 5 | "user-agent" => "User-Agent", | |||||
| 6 | "dnt" => "DNT", | |||||
| 7 | "remote-ip" => "Remote-IP", | |||||
| 8 | "te" => "TE", | |||||
| 9 | "ua-cpu" => "UA-CPU", | |||||
| 10 | "x-ssl-cipher" => "X-SSL-Cipher", | |||||
| 11 | "x-wap-profile" => "X-WAP-Profile", | |||||
| 12 | "x-xss-protection" => "X-XSS-Protection", | |||||
| 13 | ); | |||||
| 14 | ||||||
| 15 | cmp_deeply http_header_case($_) => $tests{$_}, | |||||
| 16 | sprintf("%20s -> %s", $tests{$_}, $_) | |||||
| 17 | 1 | 3 | for keys %tests; | |||
| 18 | ||||||
| 19 | 1 | 3 | done_testing; | |||