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 16 opendir (TEST_HOME, $test_home); 17 @__suites = readdir (TEST_HOME); 18 closedir TEST_HOME; 19 20 foreach (@__suites ) { 21 if ( -d $_ && $_ !~ /\./ && $_ !~ 'CVS' ) { 22 $suites[$#suites+1] = $_; 23 } 24 } 25 if ( ! $ARGV[0] ) { 26 die ( "Specify a directory: ". join(" ", @suites) ."\n" ); 27 } 28 29 $js_test_dir = $moz_src . "/js/tests/" . $ARGV[0] ."/"; 30 31 print "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 37 chdir $js_test_dir || 38 die "Couldn't chdir to js_test_dir, which is $js_test_dir\n"; 39 40 print ( "js_test_dir is $js_test_dir\n" ); 41 42 # read the test directory 43 opendir ( 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"; 47 closedir( JS_TEST_DIR ); 48 49 print ("The js_test_dir_items are: " . join( ",", @js_test_dir_items ) . "\n"); 50 51 # figure out which of the items are directories 52 foreach $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
