#!/bin/ksh
#
#pragma ident "@(#)test3.tst	1.4      01/07/27 SMI"
# 
# Copyright (c) 2001 by Sun Microsystems, Inc.
# All rights reserved.
#
#
#
# Original Author: Michael Koller
# Modified by:	   Alex Kaplan
#

# variables
hctsdir=SUNWhcts			# base directory
hname=$1			# test system
testcmd=tests/video/video.stf	# storage test
prgdir=prgs			# program directory
dls=				# data list
inst=1
# functions

# do function
go_fun()
{
	$prgdir/funcs "$*" 2>&1
}	

### MAIN ###

# change to base directory
cd `dirname $0`
while [ `basename $PWD` != $hctsdir ]
do
	cd ..
done

export DISPLAY=`hostname`":0.0" # test system hostname

# video

echo "h:<HR><B><U>System certification test - Video</U></B>:"
echo "h:DISPLAY = $DISPLAY:"
echo "X:4:$testcmd"

echo "T:Enter repeat times:1"
echo "x:5:"

go_fun runt 1 0 1 $inst 


