| 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";
|
|
|