blob: 5212d5e8217cf0bc7a6145161631bae88027857b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
#!/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 {plain|xhtml|xul|th|chrome|chromexul}.
# Defaults to th (testharness.js).
#
# 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 "plain") {
$template_type = "$FindBin::RealBin/static/test.template.txt";
} else {
$template_type = "$FindBin::RealBin/static/th.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);
|
