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