mirror of
https://github.com/urbit/shrub.git
synced 2024-12-22 18:31:44 +03:00
56 lines
1.3 KiB
Plaintext
56 lines
1.3 KiB
Plaintext
/+ *test
|
|
|%
|
|
++ test-bits
|
|
;: weld
|
|
::
|
|
:: Random sanity testing
|
|
::
|
|
%+ expect-eq
|
|
!> ~[0x3 0x7 0x7]
|
|
!> (flop (rip [0 3] 0xff))
|
|
%+ expect-eq
|
|
!> ~[0x1 0xee 0xff]
|
|
!> (flop (rip [0 8] 0x1.eeff))
|
|
%+ expect-eq
|
|
!> ~[0x1 0xe 0xe 0xf 0xf]
|
|
!> (flop (rip [0 4] 0x1.eeff))
|
|
::
|
|
:: Typical use-cases
|
|
::
|
|
%+ expect-eq
|
|
!> ~[0x1 0x23.4567 0x89.abcd]
|
|
!> (flop (rip [0 24] 0x1.2345.6789.abcd))
|
|
::
|
|
:: Edge cases
|
|
::
|
|
%+ expect-eq
|
|
!> ~
|
|
!> (flop (rip [0 31] 0x0))
|
|
%+ expect-eq
|
|
!> ~
|
|
!> (flop (rip [0 1] 0x0))
|
|
::
|
|
:: Word boundaries
|
|
::
|
|
%+ expect-eq
|
|
!> ~[0x7fff.ffff]
|
|
!> (flop (rip [0 31] 0x7fff.ffff))
|
|
%+ expect-eq
|
|
!> ~[0x1 0x7fff.ffff]
|
|
!> (flop (rip [0 31] 0xffff.ffff))
|
|
%+ expect-eq
|
|
!> ~[0x3 0x7fff.ffff]
|
|
!> (flop (rip [0 31] 0x1.ffff.ffff))
|
|
%+ expect-eq
|
|
!> ~[0x3 0x7fff.ffff 0x7fff.ffff]
|
|
!> (flop (rip [0 31] 0xffff.ffff.ffff.ffff))
|
|
%+ expect-eq
|
|
!> ~[0x1 0x1.ffff 0x1.ffff]
|
|
!> (flop (rip [0 17] 0x7.ffff.ffff))
|
|
%+ expect-eq
|
|
!> ~[0x123 0x456 0x789 0xabc 0xdef 0x12 0x345 0x678]
|
|
!> (flop (rip [0 12] 0x1234.5678.9abc.def0.1234.5678))
|
|
==
|
|
::
|
|
--
|