package TestPodChecker;
BEGIN {
push @INC, '..';
require "testcmp.pl";
import TestCompare;
}
#use strict;
#use diagnostics;
use Carp;
use Exporter;
#use File::Compare;
@EXPORT = qw(&testpodchecker);
$MYPKG = eval { (caller)[0] };
sub stripname( $ ) {
local $_ = shift;
return /(\w[.\w]*)\s*$/ ? $1 : $_;
}
sub msgcmp( $ $ ) {
## filter out platform-dependent aspects of error messages
## remove filenames from error messages to avoid any
## filepath naming differences between OS platforms
}
}
sub testpodcheck( @ ) {
my %args = @_;
my $different = '';
unless (-e $cmpfile) {
my $msg = "*** Can't find comparison file $cmpfile for testing $infile";
warn "$msg\n";
return $msg;
}
print "# Running podchecker for '$testname'...\n";
## Compare the output against the expected result
if ($^O eq 'VMS') {
}
}
$different = "$outfile is different from $cmpfile";
}
else {
unlink($outfile);
}
return $different;
}
sub testpodchecker( @ ) {
my @testpods = @_;
my $passes = 0;
my $failed = 0;
local $_;
$testdir ||= $_;
$testname =~ s/\.t$//;
if ($opts{'-xrgen'}) {
## Create the comparison file
print "# Creating expected result for \"$testname\"" .
" podchecker test ...\n";
}
else {
print "# File $cmpfile already exists" .
" (use '-force' to regenerate it).\n";
}
next;
}
my $failmsg = testpodcheck
if ($failmsg) {
++$failed;
print "#\tFAILED. ($failmsg)\n";
}
else {
++$passes;
unlink($outfile);
print "#\tPASSED.\n";
}
}
return $passes;
}
1;