| Index: third_party/WebKit/LayoutTests/http/tests/webfont/cachable-slow-ahem-loading.cgi
|
| diff --git a/third_party/WebKit/LayoutTests/http/tests/webfont/slow-ahem-loading.cgi b/third_party/WebKit/LayoutTests/http/tests/webfont/cachable-slow-ahem-loading.cgi
|
| similarity index 54%
|
| copy from third_party/WebKit/LayoutTests/http/tests/webfont/slow-ahem-loading.cgi
|
| copy to third_party/WebKit/LayoutTests/http/tests/webfont/cachable-slow-ahem-loading.cgi
|
| index f62e4c40c948f8042b41756d83f181c0050adfb5..2399642163865aa68e9d53f9dbb9eb9e2018ed79 100755
|
| --- a/third_party/WebKit/LayoutTests/http/tests/webfont/slow-ahem-loading.cgi
|
| +++ b/third_party/WebKit/LayoutTests/http/tests/webfont/cachable-slow-ahem-loading.cgi
|
| @@ -1,13 +1,16 @@
|
| #!/usr/bin/perl -wT
|
| use CGI;
|
| +use HTTP::Date;
|
| use Time::HiRes;
|
|
|
| my $cgi = new CGI;
|
| my $delay = $cgi->param('delay');
|
| $delay = 1000 unless $delay;
|
| +my $now = time2str(time);
|
|
|
| -print "Content-type: application/octet-stream\n";
|
| -print "Cache-control: no-cache, no-store\n\n";
|
| +# Last-modified is needed so that memory cache decides to perform revalidation.
|
| +print "Last-modified: $now\n";
|
| +print "Content-type: application/octet-stream\n\n";
|
| Time::HiRes::sleep($delay / 1000);
|
| open FH, "<../resources/Ahem.ttf" or die;
|
| while (<FH>) { print; }
|
|
|