OLD | NEW |
1 #!/usr/bin/perl -wT | 1 #!/usr/bin/perl -wT |
2 use strict; | 2 use strict; |
3 | 3 |
4 print "Content-Type: text/html\n"; | 4 print "Content-Type: text/html\n"; |
5 print "Access-Control-Allow-Origin: *\n"; | 5 print "Access-Control-Allow-Origin: *\n"; |
6 print "Cache-Control: no-store\n\n"; | 6 print "Cache-Control: no-store\n\n"; |
7 | 7 |
8 print <<DONE | 8 print <<DONE |
9 <!DOCTYPE html> | 9 <!DOCTYPE html> |
10 <html> | 10 <html> |
11 <head> | 11 <head> |
12 <script src="/resources/testharness.js"></script> | 12 <script src="/resources/testharness.js"></script> |
13 <script src="/resources/testharnessreport.js"></script> | 13 <script src="/resources/testharnessreport.js"></script> |
14 <script> | 14 <script> |
15 test(function () { | 15 test(function () { |
16 var httpsHeader = "$ENV{"HTTP_HTTPS"}"; | 16 var httpsHeader = "$ENV{"HTTP_UPGRADE_INSECURE_REQUESTS"}"; |
17 assert_equals(httpsHeader, "1"); | 17 assert_equals(httpsHeader, "1"); |
18 }, "Verify that this request was delivered with an 'HTTPS' header."); | 18 }, "Verify that this request was delivered with an 'Upgrade-Insecure-Request
s' header."); |
19 </script> | 19 </script> |
20 </head> | 20 </head> |
21 </html> | 21 </html> |
22 DONE | 22 DONE |
OLD | NEW |