mirror of
https://github.com/urbit/shrub.git
synced 2024-12-20 17:32:11 +03:00
65 lines
1.2 KiB
Plaintext
65 lines
1.2 KiB
Plaintext
:: tests for |mimes:html
|
|
::
|
|
/+ *test
|
|
=, mimes:html
|
|
|%
|
|
++ test-en-base16
|
|
;: weld
|
|
%+ expect-eq
|
|
!> 'aa'
|
|
!> (en:base16 (as-octs 0xaa))
|
|
::
|
|
%+ expect-eq
|
|
!> '1234'
|
|
!> (en:base16 (as-octs 0x1234))
|
|
::
|
|
%+ expect-eq
|
|
!> 'f012'
|
|
!> (en:base16 (as-octs 0xf012))
|
|
::
|
|
%+ expect-eq
|
|
!> '010b'
|
|
!> (en:base16 (as-octs 0x10b))
|
|
::
|
|
%+ expect-eq
|
|
!> '001234'
|
|
!> (en:base16 3 0x1234)
|
|
::
|
|
%+ expect-eq
|
|
!> '34'
|
|
!> (en:base16 1 0x1234)
|
|
==
|
|
::
|
|
++ test-de-base16
|
|
;: weld
|
|
%+ expect-eq
|
|
!> `[1 0xaa]
|
|
!> ^- (unit [@ud @ux])
|
|
(de:base16 'aa')
|
|
::
|
|
%+ expect-eq
|
|
!> `[2 0x1234]
|
|
!> `(unit [@ud @ux])`(de:base16 '1234')
|
|
::
|
|
%+ expect-eq
|
|
!> `[2 `@`0xf012]
|
|
!> ^- (unit [@ud @ux])
|
|
(de:base16 'f012')
|
|
::
|
|
%+ expect-eq
|
|
!> lz=`[2 0x10b]
|
|
!> ^- (unit [@ud @ux])
|
|
(de:base16 '010b')
|
|
::
|
|
%+ expect-eq
|
|
!> nlz=`[2 0x10b]
|
|
!> ^- (unit [@ud @ux])
|
|
(de:base16 '10b')
|
|
::
|
|
%+ expect-eq
|
|
!> `[3 0x1234]
|
|
!> ^- (unit [@ud @ux])
|
|
(de:base16 '001234')
|
|
==
|
|
--
|