testing/mochitest/gen_template.pl
author Nicholas Nethercote <nnethercote@mozilla.com>
Tue, 28 Oct 2014 15:04:03 -0700
changeset 213026 134b583fd7abf41496478aa08f63ac8f47ee09ff
parent 198188 3d6182f6edfbbcac8bfcfdd2bf2c69c80be98c66
child 226834 42efd85dcb7d669da5d2da31a04b233fe995d0e3
permissions -rw-r--r--
Bug 1089446 - Improve the comments in both gen_template.pl scripts. r=bz.

#!/usr/bin/perl

# This script makes mochitest test case templates. See
# https://developer.mozilla.org/en-US/docs/Mochitest#Test_templates
#
# It takes two arguments:
#
#   -b:     a bugnumber
#   -type:  template type. One of {html|xhtml|xul|th|chrome|chromexul}.
#           Defaults to html.
#
# For example, this command:
#
#  perl gen_template.pl -b 345876 -type xul
#
# writes a XUL test case template for bug 345876 to stdout.

use FindBin;
use Getopt::Long;
GetOptions("b=i"=> \$bug_number,
           "type:s"=> \$template_type);

if ($template_type eq "xul") {
  $template_type = "$FindBin::RealBin/static/xul.template.txt";
} elsif ($template_type eq "xhtml") {
  $template_type = "$FindBin::RealBin/static/xhtml.template.txt";
} elsif ($template_type eq "chrome") {
  $template_type = "$FindBin::RealBin/static/chrome.template.txt";
} elsif ($template_type eq "chromexul") {
  $template_type = "$FindBin::RealBin/static/chromexul.template.txt";
} elsif ($template_type eq "th") {
  $template_type = "$FindBin::RealBin/static/th.template.txt";
} else {
  $template_type = "$FindBin::RealBin/static/test.template.txt";
}

open(IN,$template_type) or die("Failed to open myfile for reading.");
while((defined(IN)) && ($line = <IN>)) {
        $line =~ s/{BUGNUMBER}/$bug_number/g;
        print STDOUT $line;
}
close(IN);