From bb443e11f78ae68da83394f549d9d68203e733b0 Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Fri, 1 Apr 2022 17:09:51 -0400 Subject: Always test first variation in _testConsistent_ --- test/fuzz.bqn | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'test') diff --git a/test/fuzz.bqn b/test/fuzz.bqn index fda20f1a..54874698 100644 --- a/test/fuzz.bqn +++ b/test/fuzz.bqn @@ -118,7 +118,7 @@ gen ← { } _testConsistent_ ← {Match←𝔾 - v ← <˘⍉> (5⌊´≠¨)⊸((Rand⟜≠⊏⊢)¨) ListVariations¨ a←𝕨⋈𝕩 + v ← <˘⍉> (5⌊´≠¨)⊸(((0∾Rand⌾(-⟜1))⟜≠⊏⊢)¨) ListVariations¨ a←𝕨⋈𝕩 (ClearRefs@) ⊢ (∧´ ⊏ Match¨ 1⊸↓) (𝕨 (𝔽⊑∘⊢)⊘(𝔽´⊢) Variation¨⟜a)¨ v } -- cgit v1.2.3