| OLD | NEW |
| 1 #!/usr/bin/perl -wT | 1 #!/usr/bin/perl -wT |
| 2 use strict; | 2 use strict; |
| 3 | 3 |
| 4 if ($ENV{"QUERY_STRING"} eq "clear=1") { | 4 if ($ENV{"QUERY_STRING"} eq "clear=1") { |
| 5 print "Content-Type: text/plain\r\n"; | 5 print "Content-Type: text/plain\r\n"; |
| 6 print "Set-Cookie: WK-websocket-test=0; Path=/; Max-Age=0\r\n"; | 6 print "Set-Cookie: WK-websocket-test=0; Path=/; Max-Age=0\r\n"; |
| 7 print "Set-Cookie: WK-websocket-test-httponly=0; Path=/; HttpOnly; Max-Age=0
\r\n"; | 7 print "Set-Cookie: WK-websocket-test-httponly=0; Path=/; HttpOnly; Max-Age=0
\r\n"; |
| 8 print "\r\n"; | 8 print "\r\n"; |
| 9 print "Cookies are cleared."; | 9 print "Cookies are cleared."; |
| 10 exit; | 10 exit; |
| (...skipping 46 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
| 57 cookie = normalizeCookie(cookie); | 57 cookie = normalizeCookie(cookie); |
| 58 shouldBe("cookie", '"WK-websocket-test-httponly=1; WK-websocket-test=1"'); | 58 shouldBe("cookie", '"WK-websocket-test-httponly=1; WK-websocket-test=1"'); |
| 59 clearCookies(); | 59 clearCookies(); |
| 60 finishJSTest(); | 60 finishJSTest(); |
| 61 }; | 61 }; |
| 62 | 62 |
| 63 </script> | 63 </script> |
| 64 </body> | 64 </body> |
| 65 </html> | 65 </html> |
| 66 HTML | 66 HTML |
| OLD | NEW |