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 |