File: TestParser.pl

package info (click to toggle)
iceweasel 2.0.0.19-0etch1
  • links: PTS
  • area: main
  • in suites: etch
  • size: 298,784 kB
  • ctags: 317,912
  • sloc: cpp: 1,796,902; ansic: 987,677; xml: 109,036; makefile: 47,777; asm: 35,201; perl: 26,983; sh: 20,879; cs: 6,232; java: 5,513; python: 3,249; pascal: 459; lex: 306; php: 244; csh: 132; objc: 97; yacc: 79; ada: 49; awk: 14; sql: 4; sed: 4
file content (37 lines) | stat: -rwxr-xr-x 968 bytes parent folder | download | duplicates (12) 
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
 
#! /usr/bin/perl

 use Cwd;

 die "\nUsage: perl TestParser.pl [-b|-v] <bin-path> <filelist>
 b        -> create baseline 
 v        -> verify changes
 bin-path -> Ex. <drive>:/<path>/mozilla/dist/bin
 filelist -> Run ListGen.pl which will yield file_list.txt\n"

 if(@ARGV < 3 || @ARGV > 3);

 open(FILE_LIST,$ARGV[2]) || die "\nCannot open $ARGV[2]\n";

 if($ARGV[0] eq "-b") {
   foreach $input(<FILE_LIST>) {
     $input =~s/\n//g;
     @output=split(/\./,$input);
     print "\n$input\n";
     system("$ARGV[1]/TestParser.exe $input $output[0].b");
   }
 }
 elsif($ARGV[0] eq "-v") {
   foreach $input(<FILE_LIST>) {
     $input =~s/\n//g;
     @output=split(/\./,$input);
     print "\n$input\n";
     system("$ARGV[1]/TestParser.exe $input $output[0].v");
     system("diff -u $output[0].b $output[0].v");
   }
 }
 else {
   print "\n\"$ARGV[0]\" unknown....\n";
   print "\nUsage: perl TestParser.pl [-b|-v] <bin-path> <filelist>\n\n";
 }
 
 close(FILE_LIST);