From cf4d42fc8ea7875a7df2e85688d1466ebbbbc36b Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Mon, 28 Mar 2022 17:07:31 -0400
Subject: =?UTF-8?q?Support=20for=20=E2=88=BE=20and=20>=20in=20Under?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

(limited to 'test/cases/under.bqn')

diff --git a/test/cases/under.bqn b/test/cases/under.bqn
index d5dcd42d..dc6d62c6 100644
--- a/test/cases/under.bqn
+++ b/test/cases/under.bqn
@@ -39,6 +39,13 @@
 "bac"‿'d' ≡ ⌽⌾(2↑⊑)"abc"‿'d'
 (⌽¨⌾(<2‿3⊸⊏) ≡ ⌽⌾(2‿3⊸⊏)) "abcdef"
 "bdca" ≡ 1⊸⌽⌾(1‿3‿0˙⊏⊢)"abcd"
+# Multi-source
+⟨3‿'b','a'⟩ ≡ ⌽⌾(⊑∘⊑⋈1⊸⊑)"ab"‿3
+(4‿3⋈⊸∾"ba") ≡ ⌽⌾(⊑⋈·⌽1⊸↓)"ab"‿3‿4
+⟨"ba"⟩ ≡ 2⊸⌽⌾(⊑∾⌽∘⊑)⟨"ab"⟩
+"hg"‿"fed"‿""‿"cba" ≡ ⌽⌾∾"ab"‿"cde"‿""‿"fgh"
+"ab"‿"gde"‿""‿"fch" ≡ ⌽⌾(2‿4‿6⊏∾)"ab"‿"cde"‿""‿"fgh"
+"ac"‿"bd" ≡ ⍉⌾>"ab"‿"cd"
 # Fills
 ! % ⌽⌾(1↓4↑⊢)"abc"
 
-- 
cgit v1.2.3