From 0a594027db299c37740726e282bfd513c8e1fa2b Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Mon, 16 Aug 2021 19:45:59 -0400
Subject: =?UTF-8?q?Fix=20behavior=20of=20=E2=9A=87,=20=CB=98,=20and=20perv?=
 =?UTF-8?q?asion=20when=20matching=20array=20to=20non-data=20atom?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

(limited to 'test')

diff --git a/test/cases/prim.bqn b/test/cases/prim.bqn
index 1bf0a599..99488a56 100644
--- a/test/cases/prim.bqn
+++ b/test/cases/prim.bqn
@@ -178,6 +178,7 @@
 (<2)≡1+<1
 ! % (↕4)×(↕3)⊢⌜↕2
 (=¨⟜(⥊⟜(↕×´)3‿4)≡(↕4)=⌜˜4|⊢)1‿6‿8
+0‿1≡+‿-=⊑⟨-⟩
 
 # LAYER 3
 2≡⊑2
@@ -275,6 +276,7 @@
 (<0)≡≡˘0
 (<1)≡≡˘<0
 (2⥊<<"ab") ≡ ≍○<˜˘<"ab"
+(3⥊0) ≡ {-}=˘↕3
 (↕4)(×⌜≡×⎉0‿2)↕5
 (↕4)(⋆˜⌜˜≡⋆⎉∞‿¯4)↕5
 (⟨2⟩⊸∾⍟(2‿2⥊0‿1‿1‿1)2‿3)≡≢¨≍⎉(⌊○=)⌜˜⟨↕3,2‿3⥊↕6⟩
@@ -284,6 +286,7 @@
 (-≡-⚇¯1)5
 ⟨5,⟨15,1⟩⟩≡+´⚇1⟨⟨3,2⟩,⟨⟨4,5,6⟩,⟨1⟩⟩⟩
 5‿6‿15≡∾´+´⚇1⟨⟨0,1⟩,⟨⟨⟩⟩⟩⥊⊸∾⚇¯2‿1⟨⟨2,3⟩,⟨4,5,6⟩⟩
+(5⥊1)≡(↕5)=○=⚇0{≍}
 ! % 2+⍟1‿'c'4
 ! % ⋆⍟1.5 2
 4≡2+⍟¯1 6
-- 
cgit v1.2.3