Index: LayoutTests/http/tests/security/contentSecurityPolicy/resources/frame-in-frame.pl |
diff --git a/LayoutTests/http/tests/security/contentSecurityPolicy/resources/frame-in-frame.pl b/LayoutTests/http/tests/security/contentSecurityPolicy/resources/frame-in-frame.pl |
new file mode 100755 |
index 0000000000000000000000000000000000000000..45316166bb8211e852556c5c87ecdf2467b35c0d |
--- /dev/null |
+++ b/LayoutTests/http/tests/security/contentSecurityPolicy/resources/frame-in-frame.pl |
@@ -0,0 +1,19 @@ |
+#!/usr/bin/perl |
+use strict; |
+use CGI; |
+ |
+my $cgi = new CGI; |
+ |
+print "Content-Type: text/html; charset=UTF-8\n\n"; |
+ |
+print "<!DOCTYPE html>\n"; |
+print "<html>\n"; |
+print "<body>\n"; |
+print " <script src='/js-test-resources/js-test.js'></script>\n"; |
+print " <script src='/security/contentSecurityPolicy/resources/frame-ancestors-test.js'></script>\n"; |
+print " <script>\n"; |
+print " description(\"Testing a " . $cgi->param("child") . "-origin child with a policy of \\\"" . $cgi->param("policy") . "\\\" nested in a " . $cgi->param("parent") . "-origin parent.\");\n"; |
+print " " . $cgi->param("child") . "OriginFrameShouldBe" . $cgi->param("expectation") . "(\"" . $cgi->param("policy") . "\");\n"; |
+print " </script>\n"; |
+print "</body>\n"; |
+print "</html>\n"; |