coop/rose-ash
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fed-sx-m1: Step 6b-env — pipeline:stage_envelope wired against envelope:validate_shape + 12 tests
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 26s
Details

Browse Source
This commit is contained in:
giles
2026-05-28 03:03:55 +00:00
parent 9cb002c856
commit 460257f2bb
4 changed files with 149 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
next/tests/pipeline_driver.sh
View File

@@ -55,17 +55,19 @@ cat > "$TMPFILE" <<'EPOCHS'
(epoch 14)
(eval "(get (erlang-eval-ast \"pipeline:run_stages(my_act, [fun (A) -> case A of my_act -> ok; _ -> {error, wrong_arg} end end]) =:= ok\") :name)")
;; Empty inbound_stages / outbound_stages lists
;; inbound_stages / outbound_stages are lists (concrete stages
;; tested in pipeline_envelope.sh; we just confirm they're lists).
(epoch 15)
(eval "(get (erlang-eval-ast \"pipeline:inbound_stages() =:= []\") :name)")
(eval "(get (erlang-eval-ast \"is_list(pipeline:inbound_stages())\") :name)")
(epoch 16)
(eval "(get (erlang-eval-ast \"pipeline:outbound_stages() =:= []\") :name)")
(eval "(get (erlang-eval-ast \"is_list(pipeline:outbound_stages())\") :name)")
;; Wrappers delegate to run_stages with the right list (empty => ok)
;; Driver-only invariants: explicit empty list with the wrappers
;; semantics is exercised via run_stages directly.
(epoch 17)
(eval "(get (erlang-eval-ast \"pipeline:validate_inbound(anything) =:= ok\") :name)")
(eval "(get (erlang-eval-ast \"pipeline:run_stages(anything, []) =:= ok\") :name)")
(epoch 18)
(eval "(get (erlang-eval-ast \"pipeline:validate_outbound(anything) =:= ok\") :name)")
(eval "(get (erlang-eval-ast \"pipeline:run_stages(my_act, [fun (_) -> ok end]) =:= ok\") :name)")
EPOCHS
OUTPUT=$(timeout 120 "$SX_SERVER" < "$TMPFILE" 2>/dev/null)
@@ -95,10 +97,10 @@ check 11 "all-ok stages -> ok" "true"
check 12 "first failure halts pipeline" "true"
check 13 "single failing stage" "true"
check 14 "stage receives activity verbatim" "true"
check 15 "inbound_stages = []" "true"
check 16 "outbound_stages = []" "true"
check 17 "validate_inbound = ok (empty)" "true"
check 18 "validate_outbound = ok (empty)" "true"
check 15 "inbound_stages is a list" "true"
check 16 "outbound_stages is a list" "true"
check 17 "run_stages empty -> ok" "true"
check 18 "run_stages single ok stage" "true"
TOTAL=$((PASS+FAIL))
if [ $FAIL -eq 0 ]; then