diff options
Diffstat (limited to 'support/easylatex/unitTestDiffs.pl')
-rwxr-xr-x | support/easylatex/unitTestDiffs.pl | 62 |
1 files changed, 62 insertions, 0 deletions
diff --git a/support/easylatex/unitTestDiffs.pl b/support/easylatex/unitTestDiffs.pl new file mode 100755 index 0000000000..ddf6d4abcf --- /dev/null +++ b/support/easylatex/unitTestDiffs.pl @@ -0,0 +1,62 @@ +#!/usr/bin/perl + + + +$TESTFILES_DIRNAME = 'testFiles'; + + +#echo \*\*\* You should see nothing below except for lines starting with \*\*\*: + + +opendir(TESTFILESDIR, "$TESTFILES_DIRNAME") || die "can't opendir $TESTFILES_DIRNAME. Aborting."; + +@tests = readdir(TESTFILESDIR); +closedir(TESTFILESDIR); + +%tests = {}; +foreach $test (@tests) { + if ($test =~ /.*\.txt$/) { + $test =~ s/\.txt$//; + $test =~ s/.*\///; + #print "$test\n"; + $tests{$test} = 1; + } +} + + +foreach $test (keys %tests) { + #if (string($test)) + #{print "$test\n";} + + print "Comparing $test..."; + #print "Comparing the results of ./easylatex testFiles/$test.txt to testFiles/$test.tex.correct\n"; + unlink "$test.tex"; + #print STDERR "perl easylatex.pl -e testFiles/$test.txt"; + system("perl easylatex.pl -e testFiles/$test.txt\n"); + + #print STDERR "results: $test.tex vs. testFiles/$test.tex.correct\n"; + open(RESULTFILE, "$test.tex"); + undef $/; + $result = <RESULTFILE>; + close RESULTFILE; + + $result =~ s/easyLatexGraph\d+/easyLatexGraph/g; + + open(GOALFILE, "testFiles/$test.tex.correct"); + $goal = <GOALFILE>; + close GOALFILE; + + #print $result; + + if ($result ne $goal) { + print "DIFFERENCES!..."; + } + + print "done\n"; + +} + + + + + |