third_party/WebKit/LayoutTests/http/tests/webfont/cachable-slow-ahem-loading.cgi - Issue 1893233002: WebFonts: reset m_loadLimitState on memory cache revalidation

Side by Side Diff

Use n/p to move between diff chunks; N/P to move between comments. Draft comments are only viewable by you.

Keyboard Shortcuts

	File
u :	up to issue
j / k :	jump to file after / before current file
J / K :	jump to next file with a comment after / before current file
	Side-by-side diff
i :	toggle intra-line diffs
e :	expand all comments
c :	collapse all comments
s :	toggle showing all comments
n / p :	next / previous diff chunk or comment
N / P :	next / previous comment
<Up> / <Down> :	next / previous line

	Issue
u :	up to list of issues
j / k :	jump to patch after / before current patch
o / <Enter> :	open current patch in side-by-side view
i :	open current patch in unified diff view

	Issue List
j / k :	jump to issue after / before current issue
o / <Enter> :	open current issue

Side by Side Diff: third_party/WebKit/LayoutTests/http/tests/webfont/cachable-slow-ahem-loading.cgi

Issue 1893233002: WebFonts: reset m_loadLimitState on memory cache revalidation (Closed) Base URL: https://chromium.googlesource.com/chromium/src.git@master

Patch Set: address hiroshige's comments at #11 Created 4 years, 8 months ago

Use n/p to move between diff chunks; N/P to move between comments. Draft comments are only viewable by you.

Jump to:

View unified diff | Download patch

« no previous file with comments | « no previous file | third_party/WebKit/LayoutTests/http/tests/webfont/font-load-revalidation.html » ('j') | third_party/WebKit/LayoutTests/http/tests/webfont/font-load-revalidation.html » ('J')
Toggle Intra-line Diffs ('i') | Expand Comments ('e') | Collapse Comments ('c') | Hide Comments ('s')

OLD	NEW
1 #!/usr/bin/perl -wT	1 #!/usr/bin/perl -wT

2 use CGI;	2 use CGI;

	3 use HTTP::Date;

3 use Time::HiRes;	4 use Time::HiRes;

4	5

5 my $cgi = new CGI;	6 my $cgi = new CGI;

6 my $delay = $cgi->param('delay');	7 my $delay = $cgi->param('delay');

7 $delay = 1000 unless $delay;	8 $delay = 1000 unless $delay;

	9 my $now = time2str(time);

8	10

9 print "Content-type: application/octet-stream\n";	11 # Last-modified is needed so that memory cache decides to perform revalidation.

10 print "Cache-control: no-cache, no-store\n\n";	12 print "Last-modified: $now\n";

	13 print "Content-type: application/octet-stream\n\n";

11 Time::HiRes::sleep($delay / 1000);	14 Time::HiRes::sleep($delay / 1000);

12 open FH, "<../resources/Ahem.ttf" or die;	15 open FH, "<../resources/Ahem.ttf" or die;

13 while (<FH>) { print; }	16 while (<FH>) { print; }

14 close FH;	17 close FH;

OLD	NEW