gistfile1.txt

use strict;
use Test::More;

my $header = <<HEADER;
GET / HTTP/1.0
::foo: bar

HEADER

use HTTP::Parser;
eval {
    my $p = HTTP::Parser->new;
    $p->add($header);
};
ok $@, $@;

use HTTP::Parser::XS;
{
    my $ret = HTTP::Parser::XS::parse_http_request($header, \my %env);
    is $ret, -1;
}

use Plack::HTTPParser::PP;
{
    my $ret = Plack::HTTPParser::PP::parse_http_request($header, \my %env);
    is $ret, -1;
};

done_testing;

__END__
ok 1 - bad header name in '::foo: bar' at /Users/miyagawa/perl5/perlbrew/perls/perl-5.16.2/lib/site_perl/5.16.2/HTTP/Parser.pm line 282.
#
not ok 2
#   Failed test at /Users/miyagawa/tmp/parser.t line 20.
#          got: '27'
#     expected: '-1'
ok 3
1..3
# Looks like you failed 1 test of 3.