#!/bin/csh
echo "Test A1 for huge-delete.pl"
echo "Running count.pl --newline test-1.output test-1.txt"
count.pl --newline test-1.output test-1.txt
echo "Running huge-delete.pl --remove 2 --uremove 5 test-1.output test-1.delete1"
huge-delete.pl --remove 2 --uremove 5 test-1.output test-1.delete1
echo "Running count.pl --newline --remove 2 --uremove 5 test-1.delete2 test-1.txt"
count.pl --newline --remove 2 --uremove 5 test-1.delete2 test-1.txt
if((-e test-1.delete1) && (-e test-1.delete2)) then
sort test-1.delete1 > t0;
sort test-1.delete2 > t1;
diff t0 t1 > var;
else
echo "Test Error";
endif
if(-z var) then
echo "Test Ok";
else
echo "Test Error";
echo "When tested against test-A1.reqd";
cat var;
endif
/bin/rm -f t0 t1 var test-1.output test-1.delete1 test-1.delete2