Tests for Undo with most 1-modifiers

1 files changed, 32 insertions, 0 deletions

diff --git a/test/cases/undo.bqn b/test/cases/undo.bqn
index d60b9a62..f2a6e1be 100644
--- a/test/cases/undo.bqn
+++ b/test/cases/undo.bqn
@@ -1,11 +1,20 @@
+# Data
+∧´{𝕩≡𝕩⁼𝕩}¨⟨¯∞,3,@,'⁼',↕4⟩
+! % 3⁼4
+! % 2‿3⁼2‿3.1
+
 # Primitives
 ∧´ {(𝕎≡𝕎⁼)𝕩}⟜¯0.3‿0‿8¨ +‿-‿÷‿¬‿⊢‿⊣‿⌽
+#! % -⁼ 'a'
 (√√⁼)⊸≡ 0‿0.4‿π‿1e9‿∞
 (⋆⁼⋆)⊸≡ ↕4
 1e¯14>|1-⋆+´⋆⁼1(⊢÷«)1+↕11
 ∧´ {𝕩≡6𝕎6𝕎⁼𝕩}⟜1‿2‿3¨ +‿-‿×‿÷‿√‿∧‿¬‿⊢
+'a' ≡ 3+⁼'d'
+3 % 'd'-⁼'a'
 0.3‿1.01‿π(⋆⁼⌜≡÷˜⌜○(⋆⁼))0‿2‿5.6‿∞
 (⊢≡⊣⁼˜)"abcd"
+! % "ab"⊣⁼"ac"
 (<⁼<)¨⊸≡⟨0,⟨⟩,"abc"⟩
 (/⁼/)⊸≡1‿0‿2‿4
 ⟨⟩≡/⁼⟨⟩
@@ -13,3 +22,26 @@
 ((≢⍉⁼)≡¯1⌽≢)↕↕4
 ≡´⍉⍟¯1‿2⥊⟜(↕×´)2‿3‿3
 2‿1(⊢≡⊣⍉⍉⁼)⥊⟜(↕×´)2‿3‿1‿4
+
+# Self/Swap
+∧´ {6(𝕎˜⁼≡𝕎⁼)𝕩}⟜¯0.8‿0‿3¨ +‿×‿∧
+3.5 % +˜⁼7
+0.5 % ∨˜⁼0.75
+1 % +´∊⟨√,ט⁼,∧˜⁼⟩{𝕎𝕩}⌜0‿2‿∞
+∧´ -‿÷‿⋆ {3(𝕎˜⁼≡𝕏)2‿π∾⋆2}¨ +‿×‿√
+4 % 16√˜⁼2
+4‿2‿0(¬˜⁼≡¯1++)1‿2‿9
+
+# Mapping and scan
+! % -¨⁼ 2
+! % -⌜⁼ 2
+! % -˘⁼ 2
+! % -˘⁼ <2
+! % -`⁼ 2
+(∾˜ ≡ ·(<⌜⁼∾<¨⁼)<¨) "abcd"
+"ab"‿"abc"≡1⌽⁼¨"ba"‿"bca"
+(2-=⌜˜↕2)≡/˘⁼0‿1‿1≍0‿0‿1
+2(⌽˘⁼≡·⍉⌽⁼⟜⍉)≍"abcde"
+(4⥊1) ≡ +`⁼ 1+↕4
+⟨⟩ ≡ !`⁼⟨⟩
+(-⟜» ≡ +`⁼) 2|⌊×⌜˜π+↕5