#!/bin/bash
# This is a shell library for interfacing with Perl's Test::Harness framework
# Copyright 2004. Michael Grubb

SHOULD_PRINT_PLAN=0
TEST_PLAN=0
TEST_COUNTER=0
MATCH_PROG=/bin/egrep
MATCH_ARGS="-q"

plan()
{
	if [ "${1}" == "no_plan" ] ; then
		SHOULD_PRINT_PLAN=1
		TEST_PLAN=0
	else
		TEST_PLAN="${1}"
		SHOULD_PRINT_PLAN=1 _printPlan
		SHOULD_PRINT_PLAN=0
	fi

}

endtests()
{
	_printPlan
}

ok()
{
	_updatePlan
	if [ $1 != 0 ]; then
		echo -n "not "
	fi
	echo "ok ${TEST_COUNTER} ${2} # \$1 is '$1'"
}

is()
{
	_updatePlan
	if [ $1 != ${2} ] ; then
		echo -n "not "
	fi
	echo "ok ${TEST_COUNTER} ${3} # expecting '$1' got '$2'"
}

match()
{
	_updatePlan
	echo "$2" | ${MATCH_PROG} ${MATCH_ARGS} ${1}
	rv=$?
	if [ $rv -ne 0 ] ; then
		echo -n "not "
	fi
	echo -n "ok ${TEST_COUNTER} ${3} "
	if [ $rv -ne 0 ] ; then
		echo "# '$2' did not match '$1'"
	else
		echo
	fi
}

diag()
{
	echo "# $1" 1>&2
}

_updatePlan()
{
	TEST_COUNTER=$((${TEST_COUNTER}+1))
	if [ ${SHOULD_PRINT_PLAN} ] ; then TEST_PLAN=${TEST_COUNTER} ; fi
}

_printPlan()
{
	if [ ${SHOULD_PRINT_PLAN} -eq 1 ] ; then
		echo "1..${TEST_PLAN}"
	fi
}