# gsh script to run tests and collect results
#   Written by Dave Tribby  *  August 1997
#   $Id: fulltests,v 1.1 1998/03/11 05:19:56 gdr-ftp Exp $

#  Name of gsh script containing test cases
set command="dotests"
#  Sometimes the file type is modified by editing; make it executable
chtyp -l exec $command

#  Filenames for raw and modified results
set raw_file="/tmp/rawlist"
set result_file="test.list"

#  Location of tr command that knows how to handle classes
set trcmd="/obj/gno/usr.bin/tr/tr"

# --- Begin the tests ---

echo -n "Executing test script \"$command\" from directory "
pwd

# Create a new gsh invocation and record all I/O
echo "$command ; exit" | script $raw_file

# Cleanup control chars using either of the following...
echo "Done with tests. Removing control characters from results file"
$trcmd -c -ds '[:print:]\r'  '\r'  < $raw_file > $result_file

echo "Tests results have been saved as \"$result_file\""
