mirror of
https://github.com/simh/simh.git
synced 2026-04-18 08:57:25 +00:00
simulator tests: Fix test setup to tolerate very busy or slow host systems
Adjust the RUNLIMIT to specify instructions instead of wall clock time.
This commit is contained in:
@@ -18,10 +18,10 @@
|
||||
#set cpu hist=20000
|
||||
#break A3B4 SHOW HIST=40
|
||||
cd %~p0
|
||||
set runlimit 2 minutes
|
||||
set runlimit 600M instructions
|
||||
set on
|
||||
on error ignore
|
||||
on runtime echof "\r\n*** Test Runtime Limit %SIM_RUNLIMIT% %SIM_RUNLIMIT_UNITS% Exceeded ***\n"; exit 1
|
||||
on runtime echof "\r\n*** Test Runtime Limit %SIM_RUNLIMIT% %SIM_RUNLIMIT_UNITS% Exceeded after running %SIM_RUNTIME% %SIM_RUNTIME_UNITS% ***\n"; exit 1
|
||||
|
||||
set env DIAG_QUIET_MODE=0
|
||||
if ("%1" == "-v") set console notelnet
|
||||
@@ -43,8 +43,8 @@ echo Running Hardware Core Test (EHKAA)
|
||||
if not exist ehkaa-uv1.exe echof "\r\nMISSING - Diagnostic '%~p0ehkaa-uv1.exe' is missing\n"; exit 1
|
||||
load ehkaa-uv1.exe
|
||||
go -q 200
|
||||
if (PC != 0x1150DA51) echof "\r\n*** FAILED - %SIM_NAME% Hardware Core Instruction test EHKAA\n"; exit 1
|
||||
else echof "\r\n*** PASSED - %SIM_NAME% Hardware Core Instruction test EHKAA\n"; exit 0
|
||||
if (PC != 0x1150DA51) echof "\r\n*** FAILED - %SIM_NAME% Hardware Core Instruction test EHKAA after running for %SIM_RUNTIME% %SIM_RUNTIME_UNITS%\n"; exit 1
|
||||
else echof "\r\n*** PASSED - %SIM_NAME% Hardware Core Instruction test EHKAA after running for %SIM_RUNTIME% %SIM_RUNTIME_UNITS%\n"; exit 0
|
||||
|
||||
:DIAG_INFOSERVER100
|
||||
:DIAG_INFOSERVER1000
|
||||
@@ -59,8 +59,8 @@ echo Running Hardware Core Test (EHKAA)
|
||||
if not exist ehkaa.exe echof "\r\nMISSING - Diagnostic '%~p0ehkaa.exe' is missing\n"; exit 1
|
||||
load ehkaa.exe
|
||||
go -q 200
|
||||
if (PC != 0x80018AD1) echof "\r\n*** FAILED - %SIM_NAME% Hardware Core Instruction test EHKAA\n"; exit 1
|
||||
else echof "\r\n*** PASSED - %SIM_NAME% Hardware Core Instruction test EHKAA\n"; exit 0
|
||||
if (PC != 0x80018AD1) echof "\r\n*** FAILED - %SIM_NAME% Hardware Core Instruction test EHKAA after running for %SIM_RUNTIME% %SIM_RUNTIME_UNITS%\n"; exit 1
|
||||
else echof "\r\n*** PASSED - %SIM_NAME% Hardware Core Instruction test EHKAA after running for %SIM_RUNTIME% %SIM_RUNTIME_UNITS%\n"; exit 0
|
||||
|
||||
:DIAG_VAX730
|
||||
:DIAG_VAX750
|
||||
@@ -71,9 +71,9 @@ echo Running Hardware Core Test (EVKAA)
|
||||
if not exist evkaa.exe echof "\r\nMISSING - Diagnostic '%~p0evkaa.exe' is missing\n"; exit 1
|
||||
load evkaa.exe
|
||||
expect "Hit any key to continue" send "\r"; go -q
|
||||
expect [2] "done!" echof "\r\n*** PASSED - %SIM_NAME% Hardware Core Instruction test EVKAA\n"; goto extended_tests
|
||||
expect [2] "done!" echof "\r\n*** PASSED - %SIM_NAME% Hardware Core Instruction test EVKAA after running for %SIM_RUNTIME% %SIM_RUNTIME_UNITS%\n"; goto extended_tests
|
||||
go -q 200
|
||||
echof "\r\n*** FAILED - %SIM_NAME% Hardware Core Instruction test EVKAA\n"
|
||||
echof "\r\n*** FAILED - %SIM_NAME% Hardware Core Instruction test EVKAA after running for %SIM_RUNTIME% %SIM_RUNTIME_UNITS%\n"
|
||||
exit 1
|
||||
|
||||
:extended_tests
|
||||
@@ -92,7 +92,7 @@ call do_test EVKAB "VAX Basic Instructions Exerciser"
|
||||
call do_test EVKAC "VAX Floating Point Instructions Exerciser"
|
||||
call do_test EVKAD "VAX Compatibility Mode Instructions Exerciser"
|
||||
#call do_test EVKAE "VAX Privileged Architecture Exerciser"
|
||||
echof "\n*** All Diagnostic Supervisor tests PASSED ***\n"
|
||||
echof "\n*** All Diagnostic Supervisor tests PASSED after running for %SIM_RUNTIME% %SIM_RUNTIME_UNITS% ***\n"
|
||||
exit 0
|
||||
|
||||
:VAX750
|
||||
@@ -104,7 +104,7 @@ call do_test EVKAB "VAX Basic Instructions Exerciser"
|
||||
call do_test EVKAC "VAX Floating Point Instructions Exerciser"
|
||||
call do_test EVKAD "VAX Compatibility Mode Instructions Exerciser"
|
||||
#call do_test EVKAE "VAX Privileged Architecture Exerciser"
|
||||
echof "\n*** All Diagnostic Supervisor tests PASSED ***\n"
|
||||
echof "\n*** All Diagnostic Supervisor tests PASSED after running for %SIM_RUNTIME% %SIM_RUNTIME_UNITS% ***\n"
|
||||
exit 0
|
||||
|
||||
:VAX780
|
||||
@@ -116,7 +116,7 @@ call do_test EVKAB "VAX Basic Instructions Exerciser"
|
||||
call do_test EVKAC "VAX Floating Point Instructions Exerciser"
|
||||
call do_test EVKAD "VAX Compatibility Mode Instructions Exerciser"
|
||||
#call do_test EVKAE "VAX Privileged Architecture Exerciser"
|
||||
echof "\n*** All Diagnostic Supervisor tests PASSED ***\n"
|
||||
echof "\n*** All Diagnostic Supervisor tests PASSED after running for %SIM_RUNTIME% %SIM_RUNTIME_UNITS% ***\n"
|
||||
exit 0
|
||||
|
||||
:VAX8200
|
||||
@@ -125,12 +125,12 @@ expect "DS> " send "ATTACH KA820 HUB KA0 4096 0\r"; go -q
|
||||
expect "DS> " send "ATTACH DWBUA HUB DW0 4 5\r"; go -q
|
||||
# VAX 8200 simulates the floating point accelerator which then
|
||||
# inspires tests to use it. This takes more time.
|
||||
set runlimit 3 minutes
|
||||
call Common
|
||||
set runlimit 600M instructions # Override prior runlimit
|
||||
call Common
|
||||
call do_test EVKAB "VAX Basic Instructions Exerciser"
|
||||
call do_test EVKAC "VAX Floating Point Instructions Exerciser"
|
||||
#call do_test EVKAE "VAX Privileged Architecture Exerciser"
|
||||
echof "\n*** All Diagnostic Supervisor tests PASSED ***\n"
|
||||
echof "\n*** All Diagnostic Supervisor tests PASSED after running for %SIM_RUNTIME% %SIM_RUNTIME_UNITS% ***\n"
|
||||
exit 0
|
||||
|
||||
:VAX8600
|
||||
@@ -142,7 +142,7 @@ call do_test EVKAB "VAX Basic Instructions Exerciser"
|
||||
call do_test EVKAC "VAX Floating Point Instructions Exerciser"
|
||||
call do_test EVKAD "VAX Compatibility Mode Instructions Exerciser"
|
||||
#call do_test EVKAE "VAX Privileged Architecture Exerciser"
|
||||
echof "\n*** All Diagnostic Supervisor tests PASSED ***\n"
|
||||
echof "\n*** All Diagnostic Supervisor tests PASSED after running for %SIM_RUNTIME% %SIM_RUNTIME_UNITS% ***\n"
|
||||
exit 0
|
||||
|
||||
:Common
|
||||
@@ -173,6 +173,6 @@ expect "DS> "
|
||||
if (DIAG_QUIET_MODE) echof "\nRunning - %DIAG_DESC% %DIAG_TEST%\n"
|
||||
send "RUN %DIAG_TEST%\r"
|
||||
go -q
|
||||
if (DIAG_ERRORS > 0) echof "\n*** FAILED - %DIAG_DESC% %DIAG_TEST%\n"; exit 1
|
||||
if (DIAG_QUIET_MODE) echof "\n*** PASSED - %DIAG_DESC% %DIAG_TEST%\n"
|
||||
if (DIAG_ERRORS > 0) echof "\n*** FAILED - %DIAG_DESC% %DIAG_TEST% after running for %SIM_RUNTIME% %SIM_RUNTIME_UNITS%\n"; exit 1
|
||||
if (DIAG_QUIET_MODE) echof "\n*** PASSED - %DIAG_DESC% %DIAG_TEST% after running for %SIM_RUNTIME% %SIM_RUNTIME_UNITS%\n"
|
||||
return
|
||||
|
||||
Reference in New Issue
Block a user