Make text visible when font loading takes longer than 3 seconds

LayoutTests/http/tests/webfont/slow-ahem-loading.cgi

Index: LayoutTests/http/tests/webfont/slow-ahem-loading.cgi
diff --git a/LayoutTests/http/tests/webfont/slow-ahem-loading.cgi b/LayoutTests/http/tests/webfont/slow-ahem-loading.cgi
index bfdcd2a206245d070f809bce8befe6e7df651bc3..a6f35d1c93737629a45e36b4ded3c7c9d2138e03 100755
--- a/LayoutTests/http/tests/webfont/slow-ahem-loading.cgi
+++ b/LayoutTests/http/tests/webfont/slow-ahem-loading.cgi
@@ -1,8 +1,14 @@
 #!/usr/bin/perl -wT
+use CGI;
+use Time::HiRes;
+
+my $cgi = new CGI;
+my $delay = $cgi->param('delay');
+$delay = 1000 unless $delay;
 
 print "Content-type: application/octet-stream\n";
 print "Cache-control: no-cache, no-store\n\n";
-sleep(1);
+Time::HiRes::sleep($delay / 1000);
 open FH, "<../../../resources/Ahem.ttf" or die;
 while (<FH>) { print; }
 close FH;