From cf072f50d2e1c600c788d37645721a94c55377c8 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Fri, 4 Sep 2020 18:43:56 -0400
Subject: =?UTF-8?q?Let's=20never=20use=20=E2=80=A2UCS=20again?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 test/bt         | 2 +-
 test/cmpref.bqn | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

(limited to 'test')

diff --git a/test/bt b/test/bt
index a8333a4d..ce4e9a18 100755
--- a/test/bt
+++ b/test/bt
@@ -3,6 +3,6 @@
 dRun ← ⟨"dRun"⟩ •EX •path∾"../cshim.bqn"
 c ← ∾(•LNS •path∾∾⟜"cases.bqn")¨""‿"b"
 {𝕩: 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}
+M ← {e‿b: (⍎e)⊸≢◶""‿{(@+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 afe5f959..aa71661d 100755
--- a/test/cmpref.bqn
+++ b/test/cmpref.bqn
@@ -17,12 +17,12 @@ itr ← 0⥊˜≠chr
 
 init ← " "⊸∾¨(/⟜"_"¨nc/0‿1‿1)∾¨(nc/"FMD")∾¨(nc+´⊸↑⥊"ABC"∾⌜•a)
 post ← ∾⟜" "¨/⟜"_"¨nc/0‿0‿1
-names ← init∾¨(•UCS 48)∾¨post
+names ← init∾¨'0'∾¨post
 
 Inc ← {
   i←⊑chr⊐𝕩
   n←0 ⋄ itr↩{n↩1+𝕩}⌾(i⊑⊢)itr
-  names↩((i⊑init)∾(•UCS 48+n)∾i⊑post)⌾(i⊑⊢)names
+  names↩((i⊑init)∾('0'+n)∾i⊑post)⌾(i⊑⊢)names
 }
 
 # built-in assumptions
@@ -56,5 +56,5 @@ E_redef ← { # handles [fmd] [←↩]
 
 pre ∾↩ E_isdef◶E_proc‿E_redef¨ impl
 t ← (¬∘⊑':'∊⊢)¨⊸/ 3⊸↓⌾(3⊸⊑) •LNS •path∾"testref.bqn"
-res ← DRun ∾ ∾⟜(•UCS 10)¨ pre ∾ E_proc¨ t
+res ← DRun ∾ ∾⟜(@+10)¨ pre ∾ E_proc¨ t
 • ← ("All "∾(⍕≠res)∾" passed!")⍟(0=≠) /res
-- 
cgit v1.2.3