The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
#!/bin/csh

echo "Test A12 for huge-count.pl"
echo "Running huge-count.pl --tokenlist --newLine --token token.regex --nontoken nontoken.regex --stop stoplist --split 100 --frequency 2 --ufrequency 3 test-A12.output test-A2.data"

huge-count.pl --tokenlist --newLine --token token.regex --nontoken nontoken.regex --stop stoplist --split 100 --frequency 2 --ufrequency 3 test-A12.output test-A2.data

echo "count.pl  --newLine --token token.regex --nontoken nontoken.regex --stop stoplist --frequency 2 --ufrequency 3 count-A12.output test-A2.data"
count.pl  --newLine --token token.regex --nontoken nontoken.regex --stop stoplist --frequency 2 --ufrequency 3 count-A12.output test-A2.data

# testing final output

sort test-A12.output/huge-count.output > t0
sort count-A12.output > t1 

diff -w t0 t1 > var1

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

/bin/rm -f -r var1 t0 t1 count-A12.output test-A12.output