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

echo "Test B1 for combig.pl"
echo "Running combig.pl test-B1.big"

combig.pl test-B1.big >& test-B1.output

sort test-B1.output > t0
sort test-B1.reqd > t1

diff -w t0 t1 > var1

if(-z var1) then
	echo "Test Ok";
else
	echo "Test Error";
	echo "When tested against test-B1.reqd";
	cat var1;
endif

/bin/rm -f var1 t0 t1 test-B1.output