[ARM,MIPS] Skip slow tests
[WebKit-https.git] / JSTests / mozilla / mklistpage.pl
1 #!/usr/bin/perl
2 #
3 # The contents of this file are subject to the Netscape Public
4 # License Version 1.1 (the "License"); you may not use this file
5 # except in compliance with the License. You may obtain a copy of
6 # the License at http://www.mozilla.org/NPL/
7 #
8 # Software distributed under the License is distributed on an "AS
9 # IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
10 # implied. See the License for the specific language governing
11 # rights and limitations under the License.
12 #
13 # The Original Code is JavaScript Core Tests.
14 #
15 # The Initial Developer of the Original Code is Netscape
16 # Communications Corporation.  Portions created by Netscape are
17 # Copyright (C) 1997-1999 Netscape Communications Corporation. All
18 # Rights Reserved.
19 #
20 # Alternatively, the contents of this file may be used under the
21 # terms of the GNU Public License (the "GPL"), in which case the
22 # provisions of the GPL are applicable instead of those above.
23 # If you wish to allow use of your version of this file only
24 # under the terms of the GPL and not to allow others to use your
25 # version of this file under the NPL, indicate your decision by
26 # deleting the provisions above and replace them with the notice
27 # and other provisions required by the GPL.  If you do not delete
28 # the provisions above, a recipient may use your version of this
29 # file under either the NPL or the GPL.
30 #
31 # Contributers:
32 #  Robert Ginda
33 #
34 # Creates the meat of a test suite manager page, requites menuhead.html and menufoot.html
35 # to create the complete page.  The test suite manager lets you choose a subset of tests
36 # to run under the runtests2.pl script.
37 #
38
39 local $lxr_url = "http://lxr.mozilla.org/mozilla/source/js/tests/";
40 local $suite_path = $ARGV[0] || "./";
41 local $uid = 0;          # radio button unique ID
42 local $html = "";        # html output
43 local $javascript = "";  # script output
44
45 &main;
46
47 print (&scriptTag($javascript) . "\n");
48 print ($html);
49
50 sub main {
51     local $i, @suite_list;
52
53     if (!($suite_path =~ /\/$/)) {
54         $suite_path = $suite_path . "/";
55     }
56
57     @suite_list = sort(&get_subdirs ($suite_path));
58
59     $javascript .= "suites = new Object();\n";
60
61     $html .= "<h3>Test Suites:</h3>\n";
62     $html .= "<center>\n";
63     $html .= "  <input type='button' value='Select All' " .
64       "onclick='selectAll();'> ";
65     $html .= "  <input type='button' value='Select None' " .
66       "onclick='selectNone();'> ";
67
68     # suite menu
69     $html .= "<table border='1'>\n";
70     foreach $suite (@suite_list) {
71         local @readme_text = ("No description available.");
72         if (open (README, $suite_path . $suite . "/README")) {
73             @readme_text = <README>;
74             close (README);
75         }
76         $html .= "<tr><td><a href='\#SUITE_$suite'>$suite</a></td>" .
77           "<td>@readme_text</td>";
78         $html .= "<td><input type='button' value='Select All' " .
79           "onclick='selectAll(\"$suite\");'> ";
80         $html .= "<input type='button' value='Select None' " .
81           "onclick='selectNone(\"$suite\");'></td>";
82         $html .= "<td><input readonly name='SUMMARY_$suite'></td>";
83         $html .= "</tr>";
84     }
85     $html .= "</table>\n";
86     $html .= "<td><input readonly name='TOTAL'></td>";
87     $html .= "</center>";
88     $html .= "<dl>\n";
89
90     foreach $i (0 .. $#suite_list) {
91         local $prev_href = ($i > 0) ? "\#SUITE_" . $suite_list[$i - 1] : "";
92         local $next_href = ($i < $#suite_list) ? "\#SUITE_" . $suite_list[$i + 1] : "";
93         &process_suite ($suite_path, $suite_list[$i], $prev_href, $next_href);
94     }
95
96     $html .= "</dl>\n";
97
98 }
99
100 #
101 # Append detail from a 'suite' directory (eg: ecma, ecma_2, js1_1, etc.), calling
102 # process_test_dir for subordinate categories.
103 #
104 sub process_suite {
105     local ($suite_path, $suite, $prev_href, $next_href) = @_;
106     local $i, @test_dir_list;    
107
108     # suite js object
109     $javascript .= "suites[\"$suite\"] = {testDirs: {}};\n";
110
111     @test_dir_list = sort(&get_subdirs ($test_home . $suite));
112
113     # suite header
114     $html .= "  <a name='SUITE_$suite'></a><hr><dt><big><big><b>$suite " .
115       "(" . ($#test_dir_list + 1) . " Sub-Categories)</b></big></big><br>\n";
116     $html .= "  <input type='button' value='Select All' " .
117       "onclick='selectAll(\"$suite\");'>\n";
118     $html .= "  <input type='button' value='Select None' " .
119       "onclick='selectNone(\"$suite\");'> " .
120         "[ <a href='\#top_of_page'>Top of page</a> ";
121     if ($prev_href) {
122         $html .= " | <a href='$prev_href'>Previous Suite</a> ";
123     }
124     if ($next_href) {
125         $html .= " | <a href='$next_href'>Next Suite</a> ";
126     }
127     $html .= "]\n";
128
129     $html .= "  <dd>\n  <dl>\n";
130     
131     foreach $i (0 .. $#test_dir_list) {
132         local $prev_href = ($i > 0) ? "\#TESTDIR_" . $suite . $test_dir_list[$i - 1] :
133           "";
134         local $next_href = ($i < $#test_dir_list) ?
135           "\#TESTDIR_" . $suite . $test_dir_list[$i + 1] : "";
136         &process_test_dir ($suite_path . $suite . "/", $test_dir_list[$i], $suite, 
137                            $prev_href, $next_href);
138     }
139
140     $html .= "  </dl>\n";
141
142 }
143
144 #
145 # Append detail from a test directory, calling process_test for subordinate js files
146 #
147 sub process_test_dir {
148     local ($test_dir_path, $test_dir, $suite, $prev_href, $next_href) = @_;
149
150     @test_list = sort(&get_js_files ($test_dir_path . $test_dir));
151
152     $javascript .= "suites[\"$suite\"].testDirs[\"$test_dir\"] = {tests: {}};\n";
153
154     $html .= "    <a name='TESTDIR_$suite$test_dir'></a>\n";
155     $html .= "    <dt><big><b>$test_dir (" . ($#test_list + 1) .
156       " tests)</b></big><br>\n";
157     $html .= "      <input type='button' value='Select All' " .
158       "onclick='selectAll(\"$suite\", \"$test_dir\");'>\n";
159     $html .= "      <input type='button' value='Select None' " .
160       "onclick='selectNone(\"$suite\", \"$test_dir\");'> ";
161     $html .= "[ <a href='\#SUITE_$suite'>Top of $suite Suite</a> ";
162     if ($prev_href) {
163         $html .= "| <a href='$prev_href'>Previous Category</a> ";
164     }
165     if ($next_href) {
166         $html .= " | <a href='$next_href'>Next Category</a> ";
167     }
168     $html .= "]<br>\n";
169     $html .= "    </dt>\n";
170
171     $html .= "    <dl>\n";
172
173     foreach $test (@test_list) {
174         &process_test ($test_dir_path . $test_dir, $test);
175     }
176     
177     $html .= "    </dl>\n";
178 }
179
180
181 #
182 # Append detail from a single JavaScript file.
183 #
184 sub process_test {
185     local ($test_dir_path, $test) = @_;
186     local $title = "";
187
188     $uid++;
189
190     open (TESTCASE, $test_dir_path . "/" . $test) ||
191       die ("Error opening " . $test_dir_path . "/" . $test);
192
193     while (<TESTCASE>) {
194         if (/.*TITLE\s+\=\s+\"(.*)\"/) {
195             $title = $1;
196             break;
197         }
198     }
199     close (TESTCASE);
200
201     $javascript .= "suites[\"$suite\"].testDirs[\"$test_dir\"].tests" .
202       "[\"$test\"] = \"radio$uid\"\n";
203     $html .= "      <input type='radio' value='$test' name='radio$uid' ".
204       "onclick='return onRadioClick(\"radio$uid\");'>" .
205         "<a href='$lxr_url$suite/$test_dir/$test' target='other_window'>" .
206           "$test</a> $title<br>\n";
207
208 }
209
210 sub scriptTag {
211
212     return ("<script langugage='JavaScript'>@_</script>");
213
214 }
215
216 #
217 # given a directory, return an array of all subdirectories
218 #
219 sub get_subdirs {
220     local ($dir)  = @_;
221     local @subdirs;
222
223     if (!($dir =~ /\/$/)) {
224         $dir = $dir . "/";
225     }
226
227     opendir (DIR, $dir) || die ("couldn't open directory $dir: $!");
228     local @testdir_contents = readdir(DIR);
229     closedir(DIR);
230
231     foreach (@testdir_contents) {
232         if ((-d ($dir . $_)) && ($_ ne 'CVS') && ($_ ne '.') && ($_ ne '..')) {
233             @subdirs[$#subdirs + 1] = $_;
234         }
235     }
236
237     return @subdirs;
238 }
239
240 #
241 # given a directory, return an array of all the js files that are in it.
242 #
243 sub get_js_files {
244     local ($test_subdir) = @_;
245     local @js_file_array;
246
247     opendir ( TEST_SUBDIR, $test_subdir) || die ("couldn't open directory " .
248                                                  "$test_subdir: $!");
249     @subdir_files = readdir( TEST_SUBDIR );
250     closedir( TEST_SUBDIR );
251
252     foreach ( @subdir_files ) {
253         if ( $_ =~ /\.js$/ ) {
254             $js_file_array[$#js_file_array+1] = $_;
255         }
256     }
257
258     return @js_file_array;
259 }
260
261