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

cd $(dirname $0)
	
# Get the jar to use.
jar="$(ls ../build/*.jar | sort | tail -n1)"
echo "jar: $jar"

runtest () {
	testfile="$1"
	expected=${testfile/\.FAIL/}.min
	expected="$(
		cat $expected
	)"
	filetype="$(
		echo $testfile | egrep -o '(cs|j)s'
	)"
	
	if [ "$2" == "cssminjs" ]; then 
	    actual="$(
		    java -jar ../lib/rhino-1.6R7.jar suite.rhino $testfile
	    )"
         
    else
	    actual="$(
		    java -jar $jar --type $filetype $testfile
	    )"
    fi
	
	if [ "$expected" == "$actual" ]; then
		echo "Passed: $testfile" > /dev/stderr
	else
		(
			echo "Test failed: $testfile"
			echo ""
			echo "Expected:"
			echo "$expected"
			echo ""
			echo "Actual:"
			echo "$actual"
		) > /dev/stderr
		return 1
	fi
}


ls *.FAIL | while read failtest; do
	echo "Failing test: " $failtest > /dev/stderr
	runtest $failtest && echo "Test passed, please remove the '.FAIL' from the filename"
done

ls *.{css,js} | while read testfile; do
	runtest $testfile || exit 1
done

echo 
echo "now testing the JS port of CSSMIN..."
ls *.css | while read testfile; do
	runtest $testfile "cssminjs" || exit 1
done

exit 0