xref: /trunk/main/xmerge/source/palmtests/qa/comparator/comparator.pl (revision 152e651ef53ab2fae14bf93407606b2c7fcbd35b)

#!/usr/bin/perl

#########################################################################

 #**************************************************************
#
#  Licensed to the Apache Software Foundation (ASF) under one
#  or more contributor license agreements.  See the NOTICE file
#  distributed with this work for additional information
#  regarding copyright ownership.  The ASF licenses this file
#  to you under the Apache License, Version 2.0 (the
#  "License"); you may not use this file except in compliance
#  with the License.  You may obtain a copy of the License at
#
#    http://www.apache.org/licenses/LICENSE-2.0
#
#  Unless required by applicable law or agreed to in writing,
#  software distributed under the License is distributed on an
#  "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
#  KIND, either express or implied.  See the License for the
#  specific language governing permissions and limitations
#  under the License.
#
#**************************************************************



$compare_home = "$ENV{QA_COMPARATOR_HOME}";

if ($ENV{'CLASSPATH'})
{
   $classpath_val = "$compare_home:$ENV{'CLASSPATH'}";
}
else
{
   $classpath_val = "$compare_home";
}

print "classpath is $classpath_val\n";

$list_file="";
$orig_dir="";
$new_dir="";
$diff_type="";

####### BEGIN MAIN ##############
$cmdline_len = @ARGV;
if ($cmdline_len <= 0)
{
    print_usage();
    exit (0);
}

process_cmdline(@ARGV);
print_env();
open (LOGFILE, ">$logfile") || die "Cannot open log file $logfile";
if ($test_list ne "")
{
    open (TESTLIST, $test_list) || die "Couldn't open diff list file $test_list";

    while (<TESTLIST>)
    {
        chomp $_;
        process_diff(get_file_title($_));
    }
}
close TESTLIST;
close LOGFILE;

####### END MAIN ##############

sub process_diff
{
    $_[0] =~ tr/A-Z/a-z/;

    # chdir to the output directory so the temporary files created by
    # the java programs are put in the right place.
    #
    chdir ($xml_new);

    if ($diff_type eq "xml")
    {
        # Ugly hack, probably a way to tell xerces directly that the dtd's
        # are in $compare_home/dtd.
        #
        `cp $compare_home/dtd/* $xml_new`;

        $cmd = "java -classpath $classpath_val XmlWrapper $xml_orig/$_[0].sxw $xml_new/$_[0].sxw";
        $val = system($cmd)/256;
        if ($val == 2)
        {
            print LOGFILE "$_[0]|TRUE|$xml_orig/$_[0].sxw|$xml_new/$_[0].sxw\n";
        }
        elsif($val == 3)
        {
            print LOGFILE "$_[0]|FALSE|$xml_orig/$_[0].sxw|$xml_new/$_[0].sxw\n";
        }
        else
        {
            print LOGFILE "$_[0]|ERROR|$xml_orig/$_[0].sxw|$xml_new/$_[0].sxw\n";
        }
    }
    elsif ($diff_type eq "pdb")
    {
        $cmd = "java -classpath $classpath_val SimplePdbCompare $pdb_orig/$_[0].pdb $pdb_new/$_[0].pdb\n";
        print "Executing: $cmd\n";
        $val = system($cmd)/256;
        if ($val == 2)
        {
            print LOGFILE "$_[0]|TRUE|$pdb_orig/$_[0].pdb|$pdb_new/$_[0].pdb\n";
        }
        elsif($val == 3)
        {
            print LOGFILE "$_[0]|FALSE|$pdb_orig/$_[0].pdb|$pdb_new/$_[0].pdb\n";
        }
        else
        {
            print LOGFILE "$_[0]|ERROR|$pdb_orig/$_[0].pdb|$pdb_new/$_[0].pdb\n";
        }
    }
    else
    {
        die "Don't understand test type of $diff_type.";
    }
}

sub process_cmdline
{
    foreach $i (@_)
    {
        @arg= split('=', $i);
        @arg[0] =~ tr/A-Z/a-z/;

        if (@arg[0] eq "-pdb-orig")
        {
            $pdb_orig=$arg[1];
        }
        elsif (@arg[0] eq "-pdb-new")
        {
            $pdb_new=$arg[1];
        }
        elsif (@arg[0] eq "-xml-orig")
        {
            $xml_orig=$arg[1];
        }
        elsif (@arg[0] eq "-xml-new")
        {
            $xml_new=$arg[1];
        }
        elsif (@arg[0] eq "-env")
        {
            set_env_from_props($arg[1]);
        }
        elsif (@arg[0] eq "-list")
        {
            $test_list = $arg[1];
        }
        elsif (@arg[0] eq "-one")
        {
            $infile = $arg[1];
        }
        elsif (@arg[0] eq "-type")
        {
            $diff_type = $arg[1];
            chomp $diff_type;
        }
        elsif (@arg[0] eq "-log")
        {
            $logfile = $arg[1];
        }
        else
        {
            print_usage();
            die "Incorrect command line. Don't understand $i";
        }
    }
}

sub set_env_from_props
{
    open(PROPSFILE, $_[0]) || die "Could not open properties file";

    while (<PROPSFILE>)
    {
        chomp $_;
        @arg = split('=', $_);
        @arg[0] =~ tr/a-z/A-Z/;
        $len = @arg;
        if ($len != 2)
        {
            die "Malformed property in $ARGV[0]";
        }

        if (@arg[0] eq "PDB_ORIG")
        {
            $pdb_orig=$arg[1];
        }
        elsif (@arg[0] eq "PDB_NEW")
        {
            $pdb_new=$arg[1];
        }
        elsif (@arg[0] eq "XML_ORIG")
        {
            $xml_orig=$arg[1];
        }
        elsif (@arg[0] eq "XML_NEW")
        {
            $xml_new=$arg[1];
        }

    }
    close PROPSFILE;
}

sub print_usage
{
    print "Usage : compartor.pl - compare Office or pdb files\n";
    print "\t-one=<file> :\t\t individual test case file to run\n";
    print "\t-list=<file> :\t\t list of test case files\n";
    print "\t-env=<file> :\t\t Properties like file defining env\n";
    print "\t-pdb-orig=<path> :\t directory to hold original pdb files\n";
    print "\t-pdb-new=<path> :\t directory to hold new pdb files\n";
    print "\t-xml-orig=<path> :\t directory to hold original office documents\n";
    print "\t-xml-new=<path> :\t directory to hold new office documents\n";
    print "\t-type=<xml|pdb> :\t Invokes the merge option when converting\n";
    print "\t-log=<logfile> :\t Save results to logfile.\n";
}

sub print_env
{
    print "Using the following environment:\n";
    print "\tPDB_ORIG  = $pdb_orig\n";
    print "\tPDB_NEW   = $pdb_new\n";
    print "\tXML_ORIG  = $xml_orig\n";
    print "\tXML_NEW   = $xml_new\n\n";
}

sub get_file_title
{
    @paths = split('\/', $_[0]);
    $len = @paths;
    @names = split('\.', @paths[$len-1]);
    return $names[0];
}