xmerge/source/palmtests/qa-wrapper/bin/qa_comparator.pl

   1 #!/usr/bin/perl
   2 #########################################################################
   3
   4  #*************************************************************************
   5  #
   6 # DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   7 #
   8 # Copyright 2008 by Sun Microsystems, Inc.
   9 #
  10 # OpenOffice.org - a multi-platform office productivity suite
  11 #
  12 # $RCSfile: qa_comparator.pl,v $
  13 #
  14 # $Revision: 1.4 $
  15 #
  16 # This file is part of OpenOffice.org.
  17 #
  18 # OpenOffice.org is free software: you can redistribute it and/or modify
  19 # it under the terms of the GNU Lesser General Public License version 3
  20 # only, as published by the Free Software Foundation.
  21 #
  22 # OpenOffice.org is distributed in the hope that it will be useful,
  23 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  24 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  25 # GNU Lesser General Public License version 3 for more details
  26 # (a copy is included in the LICENSE file that accompanied this code).
  27 #
  28 # You should have received a copy of the GNU Lesser General Public License
  29 # version 3 along with OpenOffice.org.  If not, see
  30 # <http://www.openoffice.org/license.html>
  31 # for a copy of the LGPLv3 License.
  32 #
  33  #*************************************************************************
  34
  35 $compare_home = $ENV{'QA_COMPARATOR_HOME'};
  36
  37 if ($ENV{'CLASSPATH'})
  38 {
  39    $classpath_val = "$compare_home:$ENV{'CLASSPATH'}";
  40 }
  41 else
  42 {
  43    $classpath_val = "$compare_home";
  44 }
  45
  46 print "classpath is $classpath_val\n";
  47
  48 $list_file="";
  49 $orig_dir="";
  50 $new_dir="";
  51 $diff_type="";
  52
  53 ####### BEGIN MAIN ##############
  54 $cmdline_len = @ARGV;
  55 if ($cmdline_len <= 0)
  56 {
  57     print_usage();
  58     exit (0);
  59 }
  60
  61 process_cmdline(@ARGV);
  62 print_env();
  63 open (LOGFILE, ">$logfile") || die "Cannot open log file $logfile";
  64 if ($test_list ne "")
  65 {
  66     open (TESTLIST, $test_list) || die "Couldn't open diff list file $test_list";
  67
  68     while (<TESTLIST>)
  69     {
  70         chomp $_;
  71         process_diff(get_file_title($_));
  72     }
  73 }
  74 close TESTLIST;
  75 close LOGFILE;
  76
  77 ####### END MAIN ##############
  78
  79 sub process_diff
  80 {
  81 #       $_[0] =~ tr/A-Z/a-z/;
  82
  83     # chdir to the output directory so the temporary files created by
  84     # the java programs are put in the right place.
  85     #
  86     chdir ($xml_new);
  87
  88     if ($diff_type eq "xml")
  89     {
  90         # Ugly hack, probably a way to tell xerces directly that the dtd's
  91         # are in $compare_home/dtd.
  92         #
  93         `cp $compare_home/dtd/* $xml_new`;
  94
  95 #               $cmd = "java -classpath $classpath_val XmlWrapper $xml_orig/$_[0].sxw $xml_new/$_[0].sxw";
  96         $cmd = "java -classpath $classpath_val XmlWrapper $xml_orig/$_[0] $xml_new/$_[0]";
  97         print "Executing: $cmd\n";
  98         $val = system($cmd)/256;
  99         if ($val == 2)
 100         {
 101 #                       print LOGFILE "$_[0]|TRUE|$xml_orig/$_[0].sxw|$xml_new/$_[0].sxw\n";
 102             print LOGFILE "$_[0]|TRUE|$xml_orig/$_[0]|$xml_new/$_[0]\n";
 103         }
 104         elsif($val == 3)
 105         {
 106 #                       print LOGFILE "$_[0]|FALSE|$xml_orig/$_[0].sxw|$xml_new/$_[0].sxw\n";
 107             print LOGFILE "$_[0]|FALSE|$xml_orig/$_[0]|$xml_new/$_[0]\n";
 108         }
 109         else
 110         {
 111 #                       print LOGFILE "$_[0]|ERROR|$xml_orig/$_[0].sxw|$xml_new/$_[0].sxw\n";
 112             print LOGFILE "$_[0]|ERROR|$xml_orig/$_[0]|$xml_new/$_[0]\n";
 113         }
 114     }
 115     elsif ($diff_type eq "pdb")
 116     {
 117 #               $cmd = "java -classpath $classpath_val SimplePdbCompare $pdb_orig/$_[0].pdb $pdb_new/$_[0].pdb\n";
 118         $cmd = "java -classpath $classpath_val SimplePdbCompare $pdb_orig/$_[0] $pdb_new/$_[0]\n";
 119         print "Executing: $cmd\n";
 120         $val = system($cmd)/256;
 121         if ($val == 2)
 122         {
 123 #                       print LOGFILE "$_[0]|TRUE|$pdb_orig/$_[0].pdb|$pdb_new/$_[0].pdb\n";
 124             print LOGFILE "$_[0]|TRUE|$pdb_orig/$_[0]|$pdb_new/$_[0]\n";
 125         }
 126         elsif($val == 3)
 127         {
 128 #                       print LOGFILE "$_[0]|FALSE|$pdb_orig/$_[0].pdb|$pdb_new/$_[0].pdb\n";
 129             print LOGFILE "$_[0]|FALSE|$pdb_orig/$_[0]|$pdb_new/$_[0]\n";
 130         }
 131         else
 132         {
 133 #                       print LOGFILE "$_[0]|ERROR|$pdb_orig/$_[0].pdb|$pdb_new/$_[0].pdb\n";
 134             print LOGFILE "$_[0]|ERROR|$pdb_orig/$_[0]|$pdb_new/$_[0]\n";
 135         }
 136     }
 137     else
 138     {
 139         die "Don't understand test type of $diff_type.";
 140     }
 141 }
 142
 143 sub process_cmdline
 144 {
 145     foreach $i (@_)
 146     {
 147         @arg= split('=', $i);
 148         @arg[0] =~ tr/A-Z/a-z/;
 149
 150         if (@arg[0] eq "-pdb-orig")
 151         {
 152             $pdb_orig=$arg[1];
 153         }
 154         elsif (@arg[0] eq "-pdb-new")
 155         {
 156             $pdb_new=$arg[1];
 157         }
 158         elsif (@arg[0] eq "-xml-orig")
 159         {
 160             $xml_orig=$arg[1];
 161         }
 162         elsif (@arg[0] eq "-xml-new")
 163         {
 164             $xml_new=$arg[1];
 165         }
 166         elsif (@arg[0] eq "-env")
 167         {
 168             set_env_from_props($arg[1]);
 169         }
 170         elsif (@arg[0] eq "-list")
 171         {
 172             $test_list = $arg[1];
 173         }
 174         elsif (@arg[0] eq "-one")
 175         {
 176             $infile = $arg[1];
 177         }
 178         elsif (@arg[0] eq "-type")
 179         {
 180             $diff_type = $arg[1];
 181             chomp $diff_type;
 182         }
 183         elsif (@arg[0] eq "-log")
 184         {
 185             $logfile = $arg[1];
 186         }
 187         else
 188         {
 189             print_usage();
 190             die "Incorrect command line. Don't understand $i";
 191         }
 192     }
 193 }
 194
 195 sub set_env_from_props
 196 {
 197     open(PROPSFILE, $_[0]) || die "Could not open properties file";
 198
 199     while (<PROPSFILE>)
 200     {
 201         chomp $_;
 202         @arg = split('=', $_);
 203         @arg[0] =~ tr/a-z/A-Z/;
 204         $len = @arg;
 205         if ($len != 2)
 206         {
 207             die "Malformed property in $ARGV[0]";
 208         }
 209
 210         if (@arg[0] eq "PDB_ORIG")
 211         {
 212             $pdb_orig=$arg[1];
 213         }
 214         elsif (@arg[0] eq "PDB_NEW")
 215         {
 216             $pdb_new=$arg[1];
 217         }
 218         elsif (@arg[0] eq "XML_ORIG")
 219         {
 220             $xml_orig=$arg[1];
 221         }
 222         elsif (@arg[0] eq "XML_NEW")
 223         {
 224             $xml_new=$arg[1];
 225         }
 226
 227     }
 228     close PROPSFILE;
 229 }
 230
 231 sub print_usage
 232 {
 233     print "Usage : compartor.pl - compare Office or pdb files\n";
 234     print "\t-one=<file> :\t\t individual test case file to run\n";
 235     print "\t-list=<file> :\t\t list of test case files\n";
 236     print "\t-env=<file> :\t\t Properites like file defining env\n";
 237     print "\t-pdb-orig=<path> :\t directory to hold original pdb files\n";
 238     print "\t-pdb-new=<path> :\t directory to hold new pdb files\n";
 239     print "\t-xml-orig=<path> :\t directory to hold original office documents\n";
 240     print "\t-xml-new=<path> :\t directory to hold new office documents\n";
 241     print "\t-type=<xml|pdb> :\t Invokes the merge option when converting\n";
 242     print "\t-log=<logfile> :\t Save results to logfile.\n";
 243 }
 244
 245 sub print_env
 246 {
 247     print "Using the following environment:\n";
 248     print "\tPDB_ORIG  = $pdb_orig\n";
 249     print "\tPDB_NEW   = $pdb_new\n";
 250     print "\tXML_ORIG  = $xml_orig\n";
 251     print "\tXML_NEW   = $xml_new\n\n";
 252 }
 253
 254 sub get_file_title
 255 {
 256     @paths = split('\/', $_[0]);
 257     $len = @paths;
 258     return @paths[$len-1];
 259 #       @names = split('\.', @paths[$len-1]);
 260 #       return $names[0];
 261 }