Merge pull request #157 from croservices/cookie-parser-fix

Fix a misunderstanding of BNF syntax 4 years ago

Author: jnthn

lib/Cro/HTTP/Cookie.pm6

@@ -15,7 +15,7 @@ my regex octet { <[\x21
                   \x2D..\x3A
                   \x3C..\x5B
                   \x5D..\x7E]>*};
-my regex cookie-value { [ <octet> || '("' <octet> '")' ] };
+my regex cookie-value { [ <octet> || '"' <octet> '"' ] };
 my subset CookieValue of Str is export where /^ <cookie-value> $/;
 
 my regex name  { <[\w\d]> (<[\w\d-]>* <[\w\d]>)* };

t/http-cookie.t

@@ -5,6 +5,10 @@ lives-ok { my CookieName $cn = "GoodName"; }, 'Correct cookie names are into the
 
 dies-ok { my CookieName $cn = ""; }, "Empty cookie name is now allowed";
 
+dies-ok { my CookieValue $cv = '("cookie-octet")'; }, 'No parens allowed in a cookie';
+
+lives-ok { my CookieValue $cv = '"cookie-octet"'; }, 'Cookie octet can be wrapped in double quotes';
+
 my @bad-chars = "\x00"..."\x1F", "\x7F", '(', ')',
             '<', '>', '@', ',', ';', ':', '\\',
             '"', '/', '[', ']', '?', '=', '{',