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