docshell/test/chrome/gen_template.pl

   1 #!/usr/bin/perl
   2
   3 # This script makes docshell test case templates. It takes one argument:
   4 #
   5 #   -b: a bugnumber
   6 #
   7 # For example, this command:
   8 #
   9 #   perl gen_template.pl -b 303267
  10 #
  11 # Writes test case template files test_bug303267.xhtml and bug303267_window.xhtml
  12 # to the current directory.
  13
  14 use FindBin;
  15 use Getopt::Long;
  16 GetOptions("b=i"=> \$bug_number);
  17
  18 $template = "$FindBin::RealBin/test.template.txt";
  19
  20 open(IN,$template) or die("Failed to open input file for reading.");
  21 open(OUT, ">>test_bug" . $bug_number . ".xhtml") or die("Failed to open output file for appending.");
  22 while((defined(IN)) && ($line = <IN>)) {
  23         $line =~ s/{BUGNUMBER}/$bug_number/g;
  24         print OUT $line;
  25 }
  26 close(IN);
  27 close(OUT);
  28
  29 $template = "$FindBin::RealBin/window.template.txt";
  30
  31 open(IN,$template) or die("Failed to open input file for reading.");
  32 open(OUT, ">>bug" . $bug_number . "_window.xhtml") or die("Failed to open output file for appending.");
  33 while((defined(IN)) && ($line = <IN>)) {
  34         $line =~ s/{BUGNUMBER}/$bug_number/g;
  35         print OUT $line;
  36 }
  37 close(IN);
  38 close(OUT);
  39