cvs commit: jakarta-slide/testsuite/bin TErrorsReport.pl

[pnever]

pnever      2003/07/16 00:08:49

  Added:       testsuite/bin TErrorsReport.pl
  Log:
  Perl version of the TErrorsReport script
  
  Revision  Changes    Path
  1.1                  jakarta-slide/testsuite/bin/TErrorsReport.pl
  
  Index: TErrorsReport.pl
  ===================================================================
  # Set defaults
  # NOTE: (1) TP_HOME=.. works if tprocessor.cmd is started from the bin directory.
  #           Otherwise, set TP_HOME to point to the TProcessor installation 
directory, or use 
  #           the -home argument
  
  $TP_HOME="..";
  $PAR="";
  if ($^O eq "MSWin32") {
    $PD="\\";
  } else {
    $PD="/";
  }
  
  # Process parms
  while (@ARGV && ($_ = $ARGV[0])){
    $_ =~ tr/\//-/;     # allow slash as option identifier
    if ($_ eq "-?" || $_ eq "-h" || $_ eq "-help") {usage(); exit();} 
    elsif ($_ eq "-home") {shift; $TP_HOME=$ARGV[0];}
    elsif ($_ eq "-infile") {shift; $ER_INFILE=$ARGV[0];}
    elsif ($_ eq "-outfile") {shift; $ER_OUTFILE=$ARGV[0];}
    else {$PAR="$PAR $_";}
    shift;
  }
  # Invoke the report
  $OPTS="-Dxdav.home=\"$TP_HOME\" -Xms100M -Xmx200M";
  
  if (!$ER_INFILE) {
    $ER_INFILE="-infile 
$TP_HOME"."$PD"."testsuite"."$PD"."junit"."$PD"."testcasesresults.xml";
  }
  if (!$ER_OUTFILE) {
    $ER_OUTFILE="-outfile 
$TP_HOME"."$PD"."testsuite"."$PD"."junit"."$PD"."testErrorsReport.txt";
  }
  cpbuild("$TP_HOME"."$PD"."lib");
  
  $CLS="org.apache.slide.testsuite.testtools.tprocessor.TErrorsReport $ER_INFILE 
$ER_OUTFILE";
  $JH=$ENV{"JAVA_HOME"};
  $CMD="$JH"."$PD"."bin"."$PD"."java";
  print ("$CMD $OPTS $CLS $PAR\n");
  system ("$CMD $OPTS $CLS $PAR");
  
  sub usage {
  print <<EOU;
  
  Usage: terrorsreport [options] 
  
  Options:
    -infile <testsuite_result_xml>     (default: 
%TP_HOME%\testsuite\junit\testcasesresults.xml)
    -outfile <errors_report>           (default: %TP_HOME%\testsuite\junit\errors.txt;
                                           also allowed: stdout, stderr)
  
  EOU
   ;
  }
  
  sub cpbuild {
    $path=$_[0];
    $CP="";
    print "Appending $path and all jar files contained in $path to the 
classpath...\n\n";
    $wrk=$ENV{"CLASSPATH"};
    $ENV{"CLASSPATH"}="$wrk".";$path";
    opendir (JD, "$path") || die "Cannot open $path";
    foreach (readdir(JD)) {
      next if (substr($_, length($_) - 4, length($_)) ne ".jar");
      if (!$CP) {$CP="$path"."$PD"."$_";}
      else {$CP="$CP".";$path$PD$_";}
    }
    $ENV{"CLASSPATH"}=$ENV{"CLASSPATH"}.";$CP";
    closedir JD;
  }
  
  
  
  

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]