#!/bin/bash

cd -- "$(dirname "$0")"
N=14
if test -z "$tool"; then
	tool=../${algo}sum
fi
s="$PREFIX $tool"

report ()
{
	if test $1 = 0; then
		printf "\033[1;32mTest %s OK\033[m\n" "$2"
	else
		printf "\033[1;31mTest %s FAILED\033[m\n" "$2"
	fi
}

multiple_files_order ()
{
	$s $(seq 1 $N) | tr '[A-F]' '[a-f]' | sed -e 's/[\t ]*/ /' | cut -d ' ' -f 2 > tmp1
	< $algo sed -e 's/ */ /' | cut -d ' ' -f 2 > tmp2
	diff tmp1 tmp2 > /dev/null
	report $? "multiple_files_order"
	rm tmp1 tmp2
}

multiple_files_delim ()
{
	$s $(seq 1 $N) | tr '[A-F]' '[a-f]' | sed -e 's/^[0-9a-f]*//' | sort > tmp1
	seq 1 $N | sed -e 's/^/  /' | sort > tmp2
	diff tmp1 tmp2 > /dev/null
	report $? "multiple_files_delim"
	rm tmp1 tmp2
}

multiple_files_sum ()
{
	$s $(seq 1 $N) | tr '[A-F]' '[a-f]' | sed -e 's/\t/ /' | cut -d ' ' -f 1 | sort > tmp1
	< $algo cut -d ' ' -f 1 | sort > tmp2
	diff tmp1 tmp2 > /dev/null
	report $? "multiple_files_sum"
	rm tmp1 tmp2
}

multiple_files ()
{
	$s $(seq 1 $N) | tr '[A-F]' '[a-f]' > tmp1
	diff tmp1 $algo > /dev/null
	report $? "multiple_files"
	rm tmp1
}

one_file ()
{
	$s 1 | tr '[A-F]' '[a-f]' > tmp1
	< $algo head -n 1 > tmp2
	diff tmp1 tmp2 > /dev/null
	report $? "one_file"
	rm tmp1
}

stdin ()
{
	$s < 1 | tr '[A-F]' '[a-f]' | sed 's/[\t ]/ /' | cut -d ' ' -f 1 > tmp1
	< $algo head -n 1 | cut -d ' ' -f 1 > tmp2
	diff tmp1 tmp2 > /dev/null
	report $? "stdin"
	rm tmp1
}

dash ()
{
	$s - < 1 | tr '[A-F]' '[a-f]' | sed 's/[\t ]/ /' | cut -d ' ' -f 1 > tmp1
	< $algo head -n 1 | cut -d ' ' -f 1 > tmp2
	diff tmp1 tmp2 > /dev/null
	report $? "dash"
	rm tmp1
}

check_file_match ()
{
	$s $(seq 1 $N) > tmp1
	$s -c tmp1 > /dev/null
	report $? "check_file_match"
	rm tmp1
}

check_stdin_match ()
{
	$s $(seq 1 $N) > tmp1
	$s -c < tmp1 > /dev/null
	report $? "check_stdin_match"
	rm tmp1
}

check_dash_match ()
{
	$s $(seq 1 $N) > tmp1
	$s -c - < tmp1 > /dev/null
	report $? "check_dash_match"
	rm tmp1
}

check_file_mismatch ()
{
	$s $(seq 1 $N) | tr '[a-f]' '[1-6]' | tr '[A-F]' '[1-6]' > tmp1
	! $s -c tmp1 > /dev/null 2> /dev/null
	report $? "check_file_mismatch"
	rm tmp1
}

check_stdin_mismatch ()
{
	$s $(seq 1 $N) | tr '[a-f]' '[1-6]' | tr '[A-F]' '[1-6]' > tmp1
	! $s -c < tmp1 > /dev/null 2> /dev/null
	report $? "check_stdin_mismatch"
	rm tmp1
}

check_dash_mismatch ()
{
	$s $(seq 1 $N) | tr '[a-f]' '[1-6]' | tr '[A-F]' '[1-6]' > tmp1
	! $s -c - < tmp1 > /dev/null 2> /dev/null
	report $? "check_dash_mismatch"
	rm tmp1
}

check_case ()
{
	$s $(seq 1 $N) | tr '[A-F]' '[a-f]' > tmp1
	tr '[a-f]' '[A-F]' < tmp1 > tmp2
	$s -c tmp1 > /dev/null && $s -c tmp2 > /dev/null
	report $? "check_case"
	rm tmp1 tmp2
}


if test $# = 0; then
	set multiple_files_order multiple_files_delim multiple_files_sum multiple_files one_file \
            stdin dash check_file_match check_stdin_match check_dash_match check_file_mismatch \
	    check_stdin_mismatch check_dash_mismatch check_case
fi
(
for f in $@; do
	$f
done
) | tee result
! grep FAILED < result >/dev/null
ret=$?
rm result
exit $ret