basis/http/parsers/parsers-tests.factor

   1 USING: http http.parsers tools.test ;
   2 IN: http.parsers.tests
   3
   4 [ { } ] [ "" parse-cookie ] unit-test
   5 [ { } ] [ "" parse-set-cookie ] unit-test
   6
   7 ! Make sure that totally invalid cookies don't confuse us
   8 [ { } ] [ "hello world; how are you" parse-cookie ] unit-test
   9
  10 [ { T{ cookie { name "__s" } { value "12345567" } } } ]
  11 [ "__s=12345567" parse-cookie ]
  12 unit-test
  13
  14 [ { T{ cookie { name "CaseSensitive" } { value "aBc" } } } ]
  15 [ "CaseSensitive=aBc" parse-cookie ]
  16 unit-test
  17
  18 [ { T{ cookie { name "__s" } { value "12345567" } } } ]
  19 [ "__s=12345567;" parse-cookie ]
  20 unit-test