more complete •ToUTF8 & •FromUTF8 tests

This commit is contained in:
dzaima 2023-06-03 00:03:37 +03:00
parent 087bf06cac
commit d0b80d17bf

View File

@ -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" %% 240157149169226141137104101108108111 @-˜•ToUTF8 "𝕩⍉hello" %% 240157149169226141137104101108108111
# •FromUTF8
! •FromUTF8•ToUTF8 "𝕩⍉hello" ! •FromUTF8•ToUTF8 "𝕩⍉hello"
(
%USE tvar
ip¨ i@+0((¯5+11)+220)1114111-10
{! 𝕩•FromUTF8•ToUTF8 𝕩 !¨ •ToUTF8 _tvar 𝕩}¨ i
t •ToUTF8¨ ip
! (t)•ToUTF8 i
! ip •FromUTF8¨ t
! (¨t) ¯1+`/04993148197
)
# •internal.GC # •internal.GC
•internal.GC 10 %% 1 •internal.GC 10 %% 1