From 60b712e7bc4ebb0f59aba506e60f913354d75f90 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sun, 4 Sep 2022 18:18:05 -0400
Subject: =?UTF-8?q?Avoid=20fuzzing=20error=20when=20dyadic=20=C2=AC=20is?=
 =?UTF-8?q?=20implemented=20as=201+-?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 test/fuzz.bqn | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'test')

diff --git a/test/fuzz.bqn b/test/fuzz.bqn
index cb5265c9..4aa41ea0 100644
--- a/test/fuzz.bqn
+++ b/test/fuzz.bqn
@@ -148,7 +148,8 @@ _testDyArith ← {f←𝕗
       k←𝕩
       rca ← Atom¨⟨gen.Char,gen.Arith⟩{k𝕎𝕩}¨sh
       Fit ← -⟜(@+1-˜17×2⋆16)⌈-⟜@⌊⊢
-      ⟨⌽⍟(Rand 2)-∘Fit⟜-`,Fit`,(1+Fit)`⟩ { (𝕎rca)_t 𝕩 }¨¨ pmn
+      # Remove -⟜@ to test full-range ¬ (extended from 1+-)
+      ⟨⌽⍟(Rand 2)-∘Fit⟜-`,Fit`,(-⟜@⌊1+Fit)`⟩ { (𝕎rca)_t 𝕩 }¨¨ pmn
       { (sh (k gen.Char ⊣)⌾(1⊸⊑) rca)_t¨ 𝕩 }⍟(0<≠) ∾1↓pmn
     }⍟(ch∧0⊸<∧≤⟜5) 𝕨
   }
-- 
cgit v1.2.3