3943f9b24f
This commit adds support for automatically running DGMON SBD diagnostic tests on build. Additionally, a small bug is fixed in simulator boot caused by failure to parse boot switches.
34 lines
1.3 KiB
INI
34 lines
1.3 KiB
INI
:: 3b2-diag.ini
|
|
:: This script will run the available 3B2/400 core diagnostics.
|
|
::
|
|
cd %~p0
|
|
set runlimit 2 minutes
|
|
set on
|
|
on error ignore
|
|
on runtime echof "\r\n*** Test Runtime Limit %SIM_RUNLIMIT% %SIM_RUNLIMIT_UNITS% Exceeded ***\n"; exit 1
|
|
|
|
set env DIAG_QUIET_MODE=0
|
|
if ("%1" == "-v") set console notelnet
|
|
else set -qu console telnet=localhost:65432,telnet=buffered; set env -a DIAG_QUIET_MODE=1
|
|
|
|
:: Set maximum memory size
|
|
set cpu 4M
|
|
|
|
if not exist rev2_diags.dsk echof "\r\nMISSING - Diagnostic disk image '%~p0rev2_diags.dsk' is missing\n"; exit 1
|
|
attach -rq ifloppy rev2_diags.dsk
|
|
|
|
:: Initial setup
|
|
expect "UTILITIES GUIDE" send "mcp\r"; go -q
|
|
expect "Enter name of program to execute [ ]:" send "filledt\r"; go -q
|
|
expect "Enter Load Device Option Number [0 (FD5)]:" send "0\r"; go -q
|
|
expect "Enter name of program to execute [ ]:" send "dgmon\r"; go -q
|
|
expect "Enter Load Device Option Number [0 (FD5)]:" send "0\r"; go -q
|
|
expect "Did you boot filledt? [y or n] (n)" send "y\r"; go -q
|
|
expect "DGMON > " send "DGN SBD\r"; go -q
|
|
expect "SBD 0 (IN SLOT 0) DIAGNOSTICS PASSED" echof; echof "PASSED: 3B2 DGMON SBD Diagnostics."; exit 0
|
|
expect [4] "FAIL" echof; echof "FAILED: 3B2 DGMON SBD Diagnostics."; exit 1
|
|
|
|
:: Run tests
|
|
if (DIAG_QUIET_MODE) echof "\nStarting 3B2 DGMON SBD Diagnostics."
|
|
boot -q CPU
|
|
return
|