From d0b80d17bfbb6ad2a6578da2f08f2ffd7b7bd9c9 Mon Sep 17 00:00:00 2001 From: dzaima Date: Sat, 3 Jun 2023 00:03:37 +0300 Subject: [PATCH] =?UTF-8?q?more=20complete=20=E2=80=A2ToUTF8=20&=20?= =?UTF-8?q?=E2=80=A2FromUTF8=20tests?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- test/cases/system.bqn | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) diff --git a/test/cases/system.bqn b/test/cases/system.bqn index 6875e455..7d1e6af1 100644 --- a/test/cases/system.bqn +++ b/test/cases/system.bqn @@ -200,11 +200,18 @@ E←•internal.EEqual ⋄ {! (𝕏 4⥊0) E 𝕏 1↓¯1×π∾4⥊0}¨ (⊢∾ ! ≡´ •Hash¨ 2⥊<⟨10,"ab"⟩ ! ≡´1 •Hash¨ 2⥊<⟨10,"ab"⟩ -# •ToUTF8 +# •ToUTF8 & •FromUTF8 @-˜•ToUTF8 "𝕩⍉hello" %% 240‿157‿149‿169‿226‿141‿137‿104‿101‿108‿108‿111 - -# •FromUTF8 ! •FromUTF8∘•ToUTF8⊸≡ "𝕩⍉hello" +( + %USE tvar + ip←⋈¨ i←@+⍷0⌈∧(⥊(¯5+↕11)+⌜2⋆↕20)∾1114111-↕10 + {! 𝕩≡•FromUTF8•ToUTF8 𝕩 ⋄ !∘≡¨⟜⊏ •ToUTF8 _tvar 𝕩}¨ ↑i + t ← •ToUTF8¨ ip + ! (∾t)≡•ToUTF8 i + ! ip ≡ •FromUTF8¨ t + ! (≠¨t) ≡ ¯1↓+`/⁼0‿49‿93‿148‿197 +) # •internal.GC •internal.GC ↕10 %% 1