1#!/ns/tools/bin/perl5
2
3# mkhtml.pl cruises through your $MOZ_SRC/mozilla/js/tests/ subdirectories,
4# and for any .js file it finds, creates an HTML file that includes:
5# $MOZ_SRC/mozilla/js/tests/$suite/shell.js, $
6# MOZ_SRC/mozilla/js/tests/$suite/browser.js,
7# and the test.js file.
8#
9#
10
11$moz_src = $ENV{"MOZ_SRC"} ||
12    die ("You need to set your MOZ_SRC environment variable.\n");
13
14$test_home = $moz_src ."/js/tests/";
15
16opendir (TEST_HOME, $test_home);
17@__suites = readdir (TEST_HOME);
18closedir TEST_HOME;
19
20foreach (@__suites ) {
21    if ( -d $_ && $_ !~ /\./ && $_ !~ 'CVS' ) {
22        $suites[$#suites+1] = $_;
23    }
24}
25if ( ! $ARGV[0]  ) {
26    die ( "Specify a directory: ". join(" ", @suites) ."\n" );
27}
28
29$js_test_dir = $moz_src .  "/js/tests/" . $ARGV[0] ."/";
30
31print "Generating html files for the tests in $js_test_dir\n";
32
33$shell_js = $js_test_dir . "shell.js";
34$browser_js = $js_test_dir . "browser.js";
35
36# cd to the test directory
37chdir $js_test_dir ||
38    die "Couldn't chdir to js_test_dir, which is $js_test_dir\n";
39
40print ( "js_test_dir is $js_test_dir\n" );
41
42# read the test directory
43opendir ( JS_TEST_DIR, $js_test_dir );
44#    || die "Couldn't open js_test_dir, which is $js_test_dir\n";
45@js_test_dir_items = readdir( JS_TEST_DIR );
46#   || die "Couldn't read js_test_dir, which is $js_test_dir\n";
47closedir( JS_TEST_DIR );
48
49print ("The js_test_dir_items are: " . join( ",", @js_test_dir_items ) . "\n");
50
51# figure out which of the items are directories
52foreach $js_test_subdir ( @js_test_dir_items ) {
53    if ( -d $js_test_subdir ) {
54
55        $js_test_subdir = $js_test_dir ."/" . $js_test_subdir;
56        chdir $js_test_subdir
57            || die "Couldn't chdir to js_test_subdir $js_test_subdir\n";
58        print "Just chdir'd to $js_test_subdir \n";
59
60        opendir( JS_TEST_SUBDIR, $js_test_subdir );
61        @subdir_tests = readdir( JS_TEST_SUBDIR );
62        closedir( JS_TEST_SUBDIR );
63
64        foreach ( @subdir_tests ) {
65            $js_test = $_;
66
67            if ( $_ =~ /\.js$/ ) {
68                s/\.js$/\.html/;
69                print $_ ."\n";
70                open( HTML_TEST, "> $_")
71                    || die "Can't open html file $test_html\n";
72                print HTML_TEST
73                    '<script src=./../shell.js></script>';
74                print HTML_TEST
75                    '<script src=./../browser.js></script>';
76                print HTML_TEST
77                    '<script src=./' . $js_test. '></script>';
78                close HTML_TEST;
79            }
80        }
81    }
82    chdir $js_test_dir;
83}
84
85