From 7d55317ec44eb587d46407dbcb0b8647e421501f Mon Sep 17 00:00:00 2001 From: dzaima Date: Sun, 1 Jun 2025 05:31:10 +0300 Subject: [PATCH] add a way to get a seeded random source from test/run.bqn --- test/run.bqn | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/test/run.bqn b/test/run.bqn index a13388da..b84181ad 100644 --- a/test/run.bqn +++ b/test/run.bqn @@ -167,6 +167,7 @@ Run ← { 𝕊 testname: {𝕊: 1 •internal.Temp o.seed}_addPreEval o.randomizeHeuristics Eval ← { + currTestState ↩ @ PreEval@ ⟨dir, ∾⟨testname,"_line_",•Repr currLn+1,".bqn"⟩, ⟨helpers,"arg0",1⟩⟩ •BQN 𝕩 } @@ -229,6 +230,13 @@ Run ← { 𝕊 testname: }⍟o.run @ } +currTestState ← @ +GetTestState ← @⊸≡◶⊢‿{ 𝕊: + currTestState ↩ { + rand ⇐ •MakeRand o.seed + } +} {𝕊: currTestState} + helpers ← { ⟨TV⇐Variation, CLR⇐ClearRefs, HasFill, EEqual, ListVariations⟩ ← •internal indistinguishable ← {⟨I⇐Indistinguishable⟩: I; EEqual} •internal @@ -263,6 +271,8 @@ helpers ← { ⊑r } + GetRand ⇐ {𝕊: •MakeRand (GetTestState@).rand.Range 1e9} + _eqvar ⇐ {𝔽 _eqvar0_ ListVariations} _eqvarv_ ⇐ {𝔽 _eqvar0_ (𝕘⊸ListVariations)} }