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