From 847cba5681f7692f78a9f66e04c0ef84f88d0197 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Wed, 23 Dec 2020 22:08:16 -0500
Subject: Complete layer 1 and 2 tests

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

(limited to 'test')

diff --git a/test/cases/prim.bqn b/test/cases/prim.bqn
index d9c0dc72..ead63668 100644
--- a/test/cases/prim.bqn
+++ b/test/cases/prim.bqn
@@ -14,6 +14,7 @@
 ∞≡-¯∞
 4≡9-5
 @≡'a'-97
+3≡'d'-'a'
 ! % 97-'a'
 ! % @-1
 ! % -'a'
@@ -144,6 +145,8 @@
 (2⊸⊑≡⊢´)"a"‿2‿(3‿"d")
 2(⊣≡⊢´)"a"‿2‿(3‿"d")
 7‿10≡+¨´⟨⟨2,3⟩,⟨5,7⟩⟩
+! % +´11
+! % -´'a'
 
 # LAYER 2
 ⟨⟩≡⟨⟩∾""
@@ -154,10 +157,15 @@
 (⥊⟜(↕×´)≡(×⟜4)⊸(+⌜)○↕´)3‿4
 (⥊⟜(↕×´)≡(×⟜4)⊸(+⌜)○↕´)0‿4
 (3‿2‿0⥊"")≡(3‿2⥊↕6)+⌜""
+(<-2)≡-¨2
 (<<2)≡<¨2
 ⟨1,⟨3,2,2‿2⥊⟨1,0,2,0⟩⟩,⟨5,4⟩⟩≡-⟨-1,⟨-3,-2,-¨2‿2⥊⟨1,0,2,0⟩⟩,⟨-5,-4⟩⟩
 3(+¨≡+⌜)↕6
+! % 2‿3⊢¨4‿5‿6
+! % "abcd"-"a"
 3‿4‿5‿6‿6≡{𝕊⍟(×≡)⊸∾⟜⥊´𝕩}⟨2,1⟩+⟨⟨⟨⟨1,2⟩,3⟩,4⟩,5⟩
+3‿2≡≢(↕3)(⊣×⊢⌜)↕2
+! % (↕4)×(↕3)⊢⌜↕2
 (=¨⟜(⥊⟜(↕×´)3‿4)≡(↕4)=⌜˜4|⊢)1‿6‿8
 
 # LAYER 3
-- 
cgit v1.2.3