blob: 648e3da0e8d368ec70a8153f12f0494154941b29 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
#!/usr/bin/perl -w
use Latex;
use strict;
my @files = qw(t/tags);
my $parser = new HTML::Latex;
print '1..',scalar @files,"\n";
foreach my $file (@files){
$parser->set_log("/dev/null");
my ($htmlfile,$latexfile) = $parser->html2latex("$file.html") or die "Couldn't process $file.html";
print "not " if (!(-f $latexfile) || `diff $latexfile $file.correct`);
print "ok\n";
}
unlink <*.tex>;
|