87 lines
1.8 KiB
Plaintext
87 lines
1.8 KiB
Plaintext
@pragma entry main
|
|
@pragma implicit off
|
|
|
|
@include "tap.inc";
|
|
|
|
function are_files_identical(a, b)
|
|
{
|
|
@local f1, f2, x, y, diff;
|
|
|
|
f1 = sys::open(a, sys::O_RDONLY);
|
|
if (f1 <= -1)
|
|
{
|
|
printf ("ERROR: unable to open %s\n", a);
|
|
return -1;
|
|
}
|
|
|
|
f2 = sys::open(b, sys::O_RDONLY);
|
|
if (f2 <= -1)
|
|
{
|
|
sys::close (a);
|
|
printf ("ERROR: unable to open %s\n", b);
|
|
return -1;
|
|
}
|
|
|
|
diff = 0;
|
|
while (sys::read(f1, x, 1) > 0)
|
|
{
|
|
if (sys::read(f2, y, 1) <= 0 || x !== y)
|
|
{
|
|
diff = 1;
|
|
break;
|
|
}
|
|
}
|
|
|
|
if (sys::read(f2, y, 1) > 0) diff = 1;
|
|
|
|
sys::close (f2);
|
|
sys::close (f1);
|
|
return !diff;
|
|
}
|
|
|
|
function run_test (x, more_opts, in_name, set_out_name, out_name)
|
|
{
|
|
@local cmd, inf, expf, outf, same;
|
|
|
|
if (hawk::isnil(in_name)) in_name = x;
|
|
if (hawk::isnil(out_name)) out_name = x;
|
|
|
|
inf = sprintf("%s/%s.in", TDIR, in_name);
|
|
expf = sprintf("%s/%s.out", TDIR, out_name);
|
|
outf = sprintf("/tmp/%s.%d.out", out_name, sys::getpid());
|
|
##print TDIR, inf, expf, outf;
|
|
|
|
if (set_out_name)
|
|
{
|
|
cmd=sprintf("%s %s -vT_OUT_NAME=%s -f %s/%s.hawk --modlibdirs=%s %s", ARGV[0], more_opts, outf, TDIR, x, hawk::modlibdirs(), inf);
|
|
}
|
|
else
|
|
{
|
|
cmd=sprintf("%s %s -f %s/%s.hawk --modlibdirs=%s %s > %s", ARGV[0], more_opts, TDIR, x, hawk::modlibdirs(), inf, outf);
|
|
}
|
|
##print cmd;
|
|
system (cmd);
|
|
|
|
same = are_files_identical(expf, outf);
|
|
if (same <= 0)
|
|
{
|
|
## don't delete the output file for review.
|
|
tap_fail (sprintf("%s[%d] %s - %s and %s differ", @SCRIPTNAME, @SCRIPTLINE, x, expf, outf));
|
|
}
|
|
else
|
|
{
|
|
tap_ok (sprintf("%s[%d]", @SCRIPTNAME, @SCRIPTLINE));
|
|
sys::unlink (outf);
|
|
}
|
|
}
|
|
|
|
function main()
|
|
{
|
|
run_test ("journal-toc", "", @nil, 0, @nil);
|
|
run_test ("journal-toc", "-vHTML=1", "journal-toc", 0, "journal-toc-html");
|
|
run_test ("bibtex-to-html", "", "journal-toc", 1, "bibtex-to-html");
|
|
|
|
tap_end ();
|
|
}
|
|
|