diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2022-09-04 18:18:05 -0400 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2022-09-04 18:18:05 -0400 |
| commit | 60b712e7bc4ebb0f59aba506e60f913354d75f90 (patch) | |
| tree | f01a8edfdd25dca9ce94f65013ee5225a1e5ee5b | |
| parent | 9252f5cf71f1852b16cd7e2186ea4d41dffc5c2b (diff) | |
Avoid fuzzing error when dyadic ¬ is implemented as 1+-
| -rw-r--r-- | test/fuzz.bqn | 3 |
1 files changed, 2 insertions, 1 deletions
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) 𝕨 } |