2009-12-14 Maciej Stachowiak <mjs@apple.com>
[WebKit.git] / SunSpider / make-hosted
index e4531a45f9efc2a77de2d32a777c46bd501357aa..fb4608a1cc34e84d1f0f700fe9c34cd1daaf379e 100755 (executable)
@@ -61,6 +61,7 @@ foreach my $suite (@suites) {
     }
     close TESTLIST;
 
+    my @testContents = ();
     for my $test (@tests) {
        my $name = "${test}";
 
@@ -71,10 +72,11 @@ foreach my $suite (@suites) {
        my $output = $template;
        $output =~ s/\@NAME\@/${name}/g;
        $output =~ s/\@SCRIPT\@/${script}/g;
-
-       open OUTPUT, ">hosted/${suite}/${test}.html";
-       print OUTPUT $output;
-       close OUTPUT;
+       $output =~ s/\\/\\\\/g;
+       $output =~ s/"/\\"/g;
+       $output =~ s/\n/\\n\\\n/g;
+       $output = $output;
+       push @testContents, $output;
     }
 
     my $output = $driverTemplate;
@@ -91,7 +93,6 @@ foreach my $suite (@suites) {
     print OUTPUT $output;
     close OUTPUT;
 
-
     my $prefix = "var tests = [ " . join(", ", map { '"' . $_ . '"' } @tests) . " ];\n";
     $prefix .= "var categories = [ " . join(", ", map { '"' . $_ . '"' } @categories) . " ];\n";
 
@@ -99,7 +100,11 @@ foreach my $suite (@suites) {
     print PREFIX $prefix;
     close PREFIX;
 
-    
+    my $contents = "var testContents = [ " . join(", ", map { '"' . $_ . '"' } @testContents) . " ];\n";
+
+    open CONTENTS, ">hosted/${suite}/sunspider-test-contents.js";
+    print CONTENTS $contents;
+    close CONTENTS;    
 }
 
 system("cp resources/sunspider-analyze-results.js hosted");