The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/bin/csh

echo "Test A1 for huge-count.pl"
echo "Running huge-count.pl --tokenlist --split 20 --newLine --token token.regex --nontoken nontoken.regex --stop stoplist test-A1.output test-A1.data"

huge-count.pl --tokenlist --split 20 --newLine --token token.regex --nontoken nontoken.regex --stop stoplist test-A1.output test-A1.data

echo "Running count.pl --newLine --token token.regex --nontoken nontoken.regex --stop stoplist test-A1.output test-A1.data"

count.pl --newLine --token token.regex --nontoken nontoken.regex --stop stoplist count-A1.output test-A1.data

# testing split

sort ./test-A1.output/complete-huge-count.output > t0
sort count-A1.output > t1

diff t0 t1 > var

if(-z var) then
        echo "Test Ok";
else
        echo "Test Error";
        echo "When tested against result of count.pl";
        cat var;
endif

/bin/rm -f -r t0 t1 count-A1.output test-A1.output var