urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-25 04:52:06 +03:00
Code Issues Packages Projects Releases Wiki Activity

tests: make /test/sys/ames pass

Browse Source
This commit is contained in:
yosoyubik 2023-04-06 13:43:20 +02:00
parent 2da5431ec2
commit 5f2eb383c7
1 changed files with 18 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
tests/sys/vane/ames.hoon
View File

@ -558,30 +558,30 @@
=/ num-frag=@ud (lent paz) =/ num-frag=@ud (lent paz)
~& num-frag=num-frag ~& num-frag=num-frag
=/ =roar:ames (sift-roar:ames num-frag (flop paz)) =/ =roar:ames (sift-roar:ames num-frag (flop paz))
%+ welp =/ event-core
=/ dat
?> ?=(^ dat.roar)
;;(@ux q.dat.roar)
(expect-eq !>(`@`dat) !>(`@`dojo))
=/ event-core
~! nec ~! nec
=/ foo [*@da *@ rof.nec] =/ foo [*@da *@ rof.nec]
(per-event:(nec foo) [*@da *@ rof.nec] *duct ames-state.nec) (ev:(nec foo) [*@da *@ rof.nec] *duct ames-state.nec)
%+ welp =/ dat
?> ?=(^ dat.roar)
;;(@ux q.dat.roar)
::
;: welp
(expect-eq !>(`@`dat) !>(`@`dojo))
::
^- tang ^- tang
%- zing %- zing
%+ turn paz %+ turn paz
|= [fra=@ud sig=@ siz=@ud byts] |= [fra=@ud sig=@ siz=@ud byts]
%+ expect-eq !>(%.y) %+ expect-eq
!> !>(%.y)
%- veri-fra:keys:fine:event-core !>((veri-fra:keys:fi:(abed:pe:event-core ~bud) want fra dat sig))
[~bud life.ames-state.bud want fra dat sig] ::
~& %verifying-sig ~& %verifying-sig
%+ expect-eq %+ expect-eq
!>(&) !>(%.y)
!> !>((meri:keys:fi:(abed:pe:event-core ~bud) want [sig dat]:roar))
%- meri:keys:fine:event-core ==
[~bud life.ames-state.bud want roar]
:: ::
++ test-old-ames-wire ^- tang ++ test-old-ames-wire ^- tang
=^ moves0 bud (call bud ~[/g/hood] %spew [%odd]~) =^ moves0 bud (call bud ~[/g/hood] %spew [%odd]~)