From d360cbe96739906724a8fbadf393965537ecbf4e Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sat, 3 Jul 2021 21:53:39 -0400
Subject: =?UTF-8?q?Fuzz=20tests=20for=20=E2=8A=94?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

(limited to 'test')

diff --git a/test/fuzz.bqn b/test/fuzz.bqn
index 7299416e..e1b83102 100644
--- a/test/fuzz.bqn
+++ b/test/fuzz.bqn
@@ -193,9 +193,9 @@ _testSelect ← { # /⊏
   n ← RandBound 𝕩
   d ← 𝕨 gen.Struct sh
   RandInd ← 0⊸≠◶⟨⟨⟩,gen.Index⟜(⥊‿RandShape _randChoose)˜⟩
-  g ← (/‿⊏ ⊐ 𝕗) ⊏ RandRep‿RandInd
+  g ← ({⊏} = 𝕗) ⊏ RandRep‿RandInd
   g { ! (n𝕎    ⊑sh) 𝕏 _testConsistent_ ≡ d }¨ 𝕗
-  g { ! (l𝕎¨l≠⊸↑sh) 𝕏 _testConsistent_ ≡ d }¨ 𝕗
+  g { ! (l𝕎¨l≠⊸↑sh) 𝕏 _testConsistent_ ≡ d }⍟((0<≠l)∨⊔˙⊸≠)¨ 𝕗
 }
 
 cases ← ⟨
@@ -204,7 +204,7 @@ cases ← ⟨
   ⟨"≠=≢"‿"", testDim‿@⟩
   ⟨""‿"≍∾«»", @‿testCombine⟩
   ⟨"⊐⊒∊⍷∧∨⍋⍒"‿"⊐⊒∊⍋⍒", testMonSearch‿testDySearch⟩
-  ⟨"/"‿"/⊏", testIndices‿testSelect⟩  # ⊔ has nested result
+  ⟨"/⊔"‿"/⊏⊔", testIndices‿testSelect⟩
 # ↕<∾↑↓≡>⊑ % ⊑⍷
 # ˘⎉¨⚇⌜⁼⍟´˝`
 ⟩
-- 
cgit v1.2.3