diff options
author | Ben Murdoch <benm@google.com> | 2011-06-02 12:07:03 +0100 |
---|---|---|
committer | Ben Murdoch <benm@google.com> | 2011-06-10 10:47:21 +0100 |
commit | 2daae5fd11344eaa88a0d92b0f6d65f8d2255c00 (patch) | |
tree | e4964fbd1cb70599f7718ff03e50ea1dab33890b /LayoutTests/http | |
parent | 87bdf0060a247bfbe668342b87e0874182e0ffa9 (diff) | |
download | external_webkit-2daae5fd11344eaa88a0d92b0f6d65f8d2255c00.zip external_webkit-2daae5fd11344eaa88a0d92b0f6d65f8d2255c00.tar.gz external_webkit-2daae5fd11344eaa88a0d92b0f6d65f8d2255c00.tar.bz2 |
Merge WebKit at r84325: Initial merge by git.
Change-Id: Ic1a909300ecc0a13ddc6b4e784371d2ac6e3d59b
Diffstat (limited to 'LayoutTests/http')
-rwxr-xr-x | LayoutTests/http/tests/resources/slow-script.pl | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/LayoutTests/http/tests/resources/slow-script.pl b/LayoutTests/http/tests/resources/slow-script.pl new file mode 100755 index 0000000..3accf91 --- /dev/null +++ b/LayoutTests/http/tests/resources/slow-script.pl @@ -0,0 +1,23 @@ +#!/usr/bin/perl -w + +use strict; +use CGI; +use Time::HiRes qw(sleep); + +my $cgi = new CGI; +my $delay = $cgi->param('delay'); +$delay = 5000 unless $delay; + +# flush the buffers after each print +select (STDOUT); +$| = 1; + +print "Content-Type: application/javascript\n"; +print "Expires: Thu, 01 Dec 2003 16:00:00 GMT\n"; +print "Cache-Control: no-store, no-cache, must-revalidate\n"; +print "Pragma: no-cache\n"; +print "\n"; + +sleep $delay / 1000; + + |