Support modified assignment

3 files changed, 6 insertions, 2 deletions

diff --git a/test/bcases.bqn b/test/bcases.bqn
index 1b7dfbc6..3f62caba 100644
--- a/test/bcases.bqn
+++ b/test/bcases.bqn
@@ -37,3 +37,7 @@
 9    % _m←˜⋄{mm←𝕩⋄×_mm 3}m
 -2   % F←{-𝕩}⋄{F 2}
 2    % c‿d←2+⟨a,b⟩←↕2⋄⟨b‿c,a⟩↩⟨4⋄5⟩‿6⋄(b×c)-d×a
+3    % x←4⋄x-↩1⋄x
+5    % x←2⋄x-˜↩7⋄x
+2    % a‿b←2‿0⋄a‿b+↩2⋄a÷b
+-7   % x‿y←3‿4⋄x+⍟2˜↩2⋄Y↩-⋄Y x
diff --git a/test/bt b/test/bt
index c5ca1399..373bb5f0 100755
--- a/test/bt
+++ b/test/bt
@@ -2,7 +2,7 @@
 
 dRun ← ⟨"dRun"⟩ •EX •path∾"../cshim.bqn"
 c ← ∾(•LNS •path∾∾⟜"cases.bqn")¨""‿"b"
-{ c ∾↩ (¬"{"⊑∘∊⊢)¨⊸/ "1 %"⊸∾¨ (3≤≠)◶0‿(('#'≠2⊸⊑)∧"  "≡2⊸↑)¨⊸/ •LNS •path∾"testref.bqn" }⍟⊢(<"-ref")∊•args
+{ c ∾↩ (¬":"⊑∘∊⊢)¨⊸/ "1 %"⊸∾¨ (3≤≠)◶0‿(('#'≠2⊸⊑)∧"  "≡2⊸↑)¨⊸/ •LNS •path∾"testref.bqn" }⍟⊢(<"-ref")∊•args
 M ← {e‿b: (⍎e)⊸≢◶""‿{(•UCS 10)∾˜""""∾b∾""": expected "∾e∾" but received "∾⍕𝕩} DRun b}
 r ← '%' M∘((+`-2⊸×)∘=⊔⊢)¨ c
 • ← ("All "∾(⍕≠c)∾" passed!")⍟(0=≠) ∾r
diff --git a/test/cmpref.bqn b/test/cmpref.bqn
index fb02a664..029af28c 100755
--- a/test/cmpref.bqn
+++ b/test/cmpref.bqn
@@ -53,6 +53,6 @@ E_redef ← { # handles [fmd] [←↩]
 }
 
 pre ∾↩ E_isdef◶E_proc‿E_redef¨ impl
-t ← (¬∘⊑'{'∊⊢)¨⊸/ 3⊸↓⌾(3⊸⊑) •LNS •path∾"testref.bqn"
+t ← (¬∘⊑':'∊⊢)¨⊸/ 3⊸↓⌾(3⊸⊑) •LNS •path∾"testref.bqn"
 res ← DRun ∾ ∾⟜(•UCS 10)¨ pre ∾ E_proc¨ t
 • ← ("All "∾(⍕≠res)∾" passed!")⍟(0=≠) /res