pjs/testing/mochitest/gen_template.pl

32 строки
859 B
Perl

#!/usr/bin/perl
#
# gen_template.pl
# Makes test case templates.
# Takes two arguments:
#
# -b : a bugnumber
# -type : template type. {html|xhtml|xul}. defaults to html.
#
# perl gen_template.pl -b 345876 -type xul
#
# sends a 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";
} 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);