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"⟩
|
! ≡´ •Hash¨ 2⥊<⟨10,"ab"⟩
|
||||||
! ≡´1 •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
|
@-˜•ToUTF8 "𝕩⍉hello" %% 240‿157‿149‿169‿226‿141‿137‿104‿101‿108‿108‿111
|
||||||
|
|
||||||
# •FromUTF8
|
|
||||||
! •FromUTF8∘•ToUTF8⊸≡ "𝕩⍉hello"
|
! •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
|
||||||
•internal.GC ↕10 %% 1
|
•internal.GC ↕10 %% 1
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user