84 lines
2.6 KiB
Bash
Executable File
84 lines
2.6 KiB
Bash
Executable File
#!/bin/sh
|
|
# Hermes v1 hosted smoke test — prints values for manual inspection
|
|
# Run: bash tools/hermes_smoke.sh
|
|
SF=./build/amd64/standard/starforth
|
|
CORE_INIT=./capsules/core/init.4th
|
|
HERMES=./capsules/hermes/init.4th
|
|
BACKUP=${CORE_INIT}.smoke_bak
|
|
|
|
cleanup() {
|
|
if [ -f "$BACKUP" ]; then
|
|
mv "$BACKUP" "$CORE_INIT"
|
|
fi
|
|
}
|
|
trap cleanup EXIT INT TERM
|
|
|
|
# Back up real init.4th
|
|
cp "$CORE_INIT" "$BACKUP"
|
|
|
|
# Build combined init: core block 1 + all hermes blocks + smoke test block
|
|
# NOTE: use BACKUP (not CORE_INIT) as source — redirect > truncates CORE_INIT first
|
|
{
|
|
cat "$BACKUP"
|
|
cat "$HERMES"
|
|
cat <<'SMOKEBLOCK'
|
|
Block 9998
|
|
( Hermes v1 Smoke Part 1 )
|
|
." >>> CD-INIT" CR
|
|
CD-INIT
|
|
." >>> COMMON-CH (expect non-0): " COMMON-CH @ . CR
|
|
." >>> COMMON state (expect 1=OPEN): " COMMON-CH @ CH-STATE@ . CR
|
|
." >>> COMMON heat (expect 65536=Q.1): " COMMON-CH @ CH-HEAT@ . CR
|
|
." >>> MSG-ALLOC #1: " MSG-ALLOC DUP . CR
|
|
VARIABLE SLOT1 SLOT1 !
|
|
." >>> SLOT1 type before set (expect 0): " SLOT1 @ MSG-TYPE@ . CR
|
|
42 SLOT1 @ MSG-TYPE!
|
|
." >>> SLOT1 type after set (expect 42): " SLOT1 @ MSG-TYPE@ . CR
|
|
99 SLOT1 @ MSG-FROM!
|
|
." >>> SLOT1 from (expect 99): " SLOT1 @ MSG-FROM@ . CR
|
|
7 SLOT1 @ MSG-TO!
|
|
." >>> SLOT1 to (expect 7): " SLOT1 @ MSG-TO@ . CR
|
|
Q.1 SLOT1 @ MSG-HEAT!
|
|
." >>> SLOT1 heat before cool (expect 65536): " SLOT1 @ MSG-HEAT@ . CR
|
|
SLOT1 @ MSG-COOL-ONE
|
|
." >>> SLOT1 heat after cool (expect <65536): " SLOT1 @ MSG-HEAT@ . CR
|
|
." >>> MSG-ALLOC #2: " MSG-ALLOC DUP . CR
|
|
VARIABLE SLOT2 SLOT2 !
|
|
." >>> MSG-REAP (SLOT1 still warm): " MSG-REAP
|
|
." SLOT1 type after reap (expect 42): " SLOT1 @ MSG-TYPE@ . CR
|
|
0 SLOT1 @ MSG-HEAT!
|
|
MSG-REAP
|
|
Block 9999
|
|
( Hermes v1 Smoke Part 2 )
|
|
." >>> SLOT1 type after reap (expect 0): " SLOT1 @ MSG-TYPE@ . CR
|
|
." >>> CH-ALLOC #1: " CH-ALLOC DUP . CR
|
|
VARIABLE CH1 CH1 !
|
|
CH-OPEN CH1 @ CH-STATE!
|
|
Q.1 CH1 @ CH-HEAT!
|
|
CH-ACTIVE @ CH1 @ CH-NEXT!
|
|
CH1 @ CH-ACTIVE !
|
|
." >>> CH1 state (expect 1=OPEN): " CH1 @ CH-STATE@ . CR
|
|
." >>> CH1 heat before cool (expect 65536): " CH1 @ CH-HEAT@ . CR
|
|
CH-COOL-ALL
|
|
." >>> CH1 heat after cool (expect <65536): " CH1 @ CH-HEAT@ . CR
|
|
." >>> MBR-ALLOC #1: " MBR-ALLOC DUP . CR
|
|
VARIABLE MBR1 MBR1 !
|
|
55 MBR1 @ 1 CELLS + !
|
|
." >>> MBR1 vm-id (expect 55): " MBR1 @ MBR-VM@ . CR
|
|
MBR1 @ MBR-FREE-NODE
|
|
." >>> MBR-FREE-NODE ok" CR
|
|
." >>> EVENT-EMIT 77" CR
|
|
77 EVENT-EMIT
|
|
." >>> EVENT-WAIT (expect 77): " EVENT-WAIT . CR
|
|
EVENT-DRAIN
|
|
." >>> MSG-ARENA type after DRAIN (expect 0): " MSG-ARENA MSG-TYPE@ . CR
|
|
." >>> HERMES-TICK" CR
|
|
HERMES-TICK
|
|
." >>> HERMES-TICK ok" CR
|
|
." >>> === Hermes smoke test complete ===" CR
|
|
BYE
|
|
SMOKEBLOCK
|
|
} > "$CORE_INIT"
|
|
|
|
$SF --log-none 2>&1 | grep '^>>>'
|