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; Max-Age=0\r\n"; | 6 print "Set-Cookie: WK-websocket-test=0; Max-Age=0\r\n"; |
7 print "Set-Cookie: WK-websocket-test-httponly=0; HttpOnly; Max-Age=0\r\n"; | 7 print "Set-Cookie: WK-websocket-test-httponly=0; 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; |
11 } | 11 } |
12 | 12 |
13 print "Content-Type: text/html\r\n"; | 13 print "Content-Type: text/html\r\n"; |
14 print "Set-Cookie: WK-websocket-test=1\r\n"; | 14 print "Set-Cookie: WK-websocket-test=1\r\n"; |
15 print "Set-Cookie: WK-websocket-test-httponly=1; HttpOnly\r\n"; | 15 print "Set-Cookie: WK-websocket-test-httponly=1; HttpOnly\r\n"; |
16 print "\r\n"; | 16 print "\r\n"; |
17 print <<HTML | 17 print <<HTML |
18 <html> | 18 <html> |
19 <head> | 19 <head> |
20 <script src="/js-test-resources/js-test-pre.js"></script> | 20 <script src="/js-test-resources/js-test.js"></script> |
21 </head> | 21 </head> |
22 <body> | 22 <body> |
23 <p>Test WebSocket sends HttpOnly cookies.</p> | 23 <p>Test WebSocket sends HttpOnly cookies.</p> |
24 <p>On success, you will see a series of "PASS" messages, followed by "TEST COMPL
ETE".</p> | 24 <p>On success, you will see a series of "PASS" messages, followed by "TEST COMPL
ETE".</p> |
25 <div id="console"></div> | 25 <div id="console"></div> |
26 <script> | 26 <script> |
27 window.jsTestIsAsync = true; | 27 window.jsTestIsAsync = true; |
28 | 28 |
29 var cookie; | 29 var cookie; |
30 | 30 |
(...skipping 24 matching lines...) Expand all Loading... |
55 cookie = normalizeCookie(cookie); | 55 cookie = normalizeCookie(cookie); |
56 shouldBe("cookie", '"WK-websocket-test-httponly=1; WK-websocket-test=1"'); | 56 shouldBe("cookie", '"WK-websocket-test-httponly=1; WK-websocket-test=1"'); |
57 clearCookies(); | 57 clearCookies(); |
58 finishJSTest(); | 58 finishJSTest(); |
59 }; | 59 }; |
60 | 60 |
61 </script> | 61 </script> |
62 </body> | 62 </body> |
63 </html> | 63 </html> |
64 HTML | 64 HTML |
OLD | NEW |