#!/bin/ksh
#
#ident	"@(#)tape.stf	1.11	04/12/15 SMI"
#
# Copyright 2004 Sun Microsystems, Inc.  All rights reserved.
# Use is subject to license terms.
#
# This is the TAPE test module.
#
#########################################################################
# NOTES ON OPERATION AND ERROR HANDLING:
# This script is called by staf.eng, which is the main test harness.
# Standard output gets recorded in the test module log file by staf.eng.
#
# Variable maxwarn is checked by staf.eng in the "chk_err()" monitoring
# process, by grep'ing the log file of this test module.  If maxwarn is
# exceeded, the staf.eng script will kill this test module.
# There are two formats for the error echos to the log files;
#
# 1.   echo "!ERROR: blah blah foo bar";
#      which will terminate the test.  If the test harness detects
#      a string match with "!ERROR", then all testing terminates.
#
# 2.   echo "!WARNING: blah blah foo bar";
#       The above format "!WARNING:" will make the log file entry,
#       but all testing will continue, no termination of tests,
#       UNLESS maxwarnings variable is exceeded.
#
# DANGER!!:  Even if you do not intend to use WARNING messages, variable
# maxwarn *MUST* be defined and the "maxwarnings=" line *MUST* be
# echo'ed to the logfile.  This syntax is mandatory.
#########################################################################


# variables
prgdir=../../prgs	# program directory
maxwarn=50		# max number of nonfatal warnings to tolerate.
tape=$1			# tape device


# functions

clean_up()
{
	echo "tape Ending!"
}

### MAIN ###

# set trap
trap 'clean_up; exit' 17

# SET LOGFILE FLAG FOR MAX WARNING COUNT
# This is checked by staf.eng, and if exceeded, staf.eng will kill this module.
# ( This only makes sense if this script echos warning messages, but
#   inclusion of this variable in the log file is *MANDATORY* in all cases. )
#echo "maxwarnings=${maxwarn}"

# Choose tape device
if [ -z "$tape" ]
then
	tapeid=`ls /dev/rmt/ | head -1`
	tape=/dev/rmt/$tapeid
	if [ -z "$tape" ]
	then
		echo "!ERROR: No tape devices found on this system"
		exit 1
	fi
fi

echo "Starting tape test.Using device $tape"
	
cd tape/bin
HCTS_ENV=yes
export HCTS_ENV
./runtests.sh $tape
