From b20aba3b36cfe161e762c85c98874c15d0b6985d Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sun, 14 Feb 2021 16:23:25 -0500
Subject: Better tests for depth-2 Group Indices

---
 test/cases/prim.bqn | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'test')

diff --git a/test/cases/prim.bqn b/test/cases/prim.bqn
index 81d70de8..7aaeaf0c 100644
--- a/test/cases/prim.bqn
+++ b/test/cases/prim.bqn
@@ -423,13 +423,18 @@
 ! % ⊔≍↕3
 ! % ⊔1.5‿0‿2
 ! % ⊔1‿¯2
+(⊔≡⥊¨¨∘⊔∘⊑)⟨1‿0‿0‿2⟩
+(≍⍟2∘<¨⌽↕3‿2)≡⊔⟨2‿1‿0,0‿1⟩
+(↕0‿0)≡⊔⟨⟩‿⟨⟩
+(⊔≡·≍⍟2∘<·∾⌜´/∘(0⊸=)¨)⟨0‿¯1‿0‿0,¯1‿0‿0⟩
+(0‿0‿1↑⌜≍⍟2∘<∘⥊¨1‿0)≡⊔⟨2,1‿0⟩
+(0‿0‿1↑⌜≍⍟2∘(<0‿0‿0⊸∾)¨1‿0)≡⊔0‿0⊸↓¨⟨2,1‿0⟩
 4‿3‿2(≍○<≡·(≠¨≍○<∾)/⊸⊔)"abcdefghi"
 ⟨⟩≡(3⥊¯1)⊔"abc"
 ! % ⊔˜'a'‿1‿0
 ! % 4⊔○↕2
 (≍˘1‿1‿4<∘⥊⎉1 16‿4+⌜↕4)≡2↓⟨3‿2,¯1‿0‿¯1⟩⊔2‿3‿4⥊↕24
 ⥊⚇0⊸≡○⊔⟜(⥊<)1‿2‿2‿¯1‿0
-(⊔≡·≍⍟2∘<·∾⌜´/∘(0⊸=)¨)⟨0‿¯1‿0‿0,¯1‿0‿0⟩
 (∾↕¨∘≢⊸⊔)⊸≡ 3‿2‿4⥊↕24
 -⟜'a'⊸(⊔≡⊔○⥊)"acc"≍"bac"
 (2‿1/⟨↕0‿1,1‿1⥊3⟩)≡2⊔⥊3
-- 
cgit v1.2.3