more complete •ToUTF8 & •FromUTF8 tests
This commit is contained in:
parent
087bf06cac
commit
d0b80d17bf
@ -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
|
||||
|
||||
Loading…
Reference in New Issue
Block a user