mirror of
https://github.com/GnoConsortium/gno.git
synced 2024-10-06 09:54:30 +00:00
30 lines
935 B
Plaintext
30 lines
935 B
Plaintext
|
# 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\""
|