tests/mozilla/mkhtml.pl

   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