clay: update tests

This commit is contained in:
Philip Monk 2022-05-20 18:28:20 -07:00
parent 01965eed21
commit ac64f44538
6 changed files with 23 additions and 14 deletions

View File

@ -1,3 +1,3 @@
version https://git-lfs.github.com/spec/v1
oid sha256:5b051d2dfdadba8201282ab31ca2c6f99680c359665832adc960dded6ba05478
size 8282882
oid sha256:2f46209c31bc7be965b6ba32db92fb0746be15d9613b1c3c8d09ce7fa0e5e157
size 8280141

View File

@ -1,3 +1,3 @@
version https://git-lfs.github.com/spec/v1
oid sha256:c61d4d11d784ed2360354f1bd16b0cb5cb506044fb8f806a781f6e1a80c2741c
size 8652918
oid sha256:c45166ff0f8ab8dc1552bcef519c77c0afa6ca52f8ed1ba31ed632012667d619
size 8674763

View File

@ -2002,8 +2002,7 @@
++ request-attestation
|= =ship
^+ event-core
=+ %^ trace msg.veb ship
|.("ames: requesting attestion from {<ship>}")
=+ (trace msg.veb ship |.("requesting attestion"))
=. event-core (send-blob | ship (sendkeys-packet ship))
=/ =wire /alien/(scot %p ship)
(emit duct %pass wire %b %wait (add now ~s30))

View File

@ -9,7 +9,8 @@
lib=naive-transactions,
ethereum,
dice
/* logs %eth-logs /app/azimuth/logs/eth-logs
:: /* logs %eth-logs /app/azimuth/logs/eth-logs
=/ logs ~
=, strand=strand:spider
::
=> |% +$ card card:agent:gall

View File

@ -405,24 +405,25 @@
:: channel is now established; comet also emitted a duplicate
:: self-attestation, which we ignore
::
=^ moves3 comet2 (call comet2 ~[//unix] %hear (snag-packet 1 moves2))
=^ moves4 comet2 (take comet2 /bone/(scot %p our-comet)/0/1 ~[//unix] %g %done ~)
=^ moves5 comet (call comet ~[//unix] %hear (snag-packet 0 moves4))
=^ moves3 comet2 (call comet2 ~[//unix] %hear (snag-packet 0 moves2))
=^ moves4 comet2 (call comet2 ~[//unix] %hear (snag-packet 1 moves2))
=^ moves5 comet2 (take comet2 /bone/(scot %p our-comet)/0/1 ~[//unix] %g %done ~)
=^ moves6 comet2 (take comet2 /bone/(scot %p our-comet)/0/1 ~[//unix] %g %boon [%post 'first1!!'])
=^ moves7 comet (call comet ~[//unix] %hear (snag-packet 0 moves6))
=^ moves7 comet (call comet ~[//unix] %hear (snag-packet 0 moves5))
=^ moves8 comet (call comet ~[//unix] %hear (snag-packet 0 moves6))
::
;: weld
%+ expect-eq
!> [~[//unix] %pass /qos %d %flog %text "; {<our-comet>} is your neighbor"]
!> (snag 0 `(list move:ames)`moves3)
!> (snag 0 `(list move:ames)`moves4)
::
%+ expect-eq
!> [~[//unix] %pass /qos %d %flog %text "; {<our-comet2>} is your neighbor"]
!> (snag 0 `(list move:ames)`moves5)
!> (snag 0 `(list move:ames)`moves7)
::
%+ expect-eq
!> [~[/g/talk] %give %boon [%post 'first1!!']]
!> (snag 0 `(list move:ames)`moves7)
!> (snag 0 `(list move:ames)`moves8)
==
::
++ test-nack ^- tang

View File

@ -99,6 +99,7 @@
%: ford:fusion
files=(my [/lib/self/hoon &+hoon+source]~)
file-store=~
0
*flow:fusion
*flue:fusion
==
@ -113,6 +114,7 @@
%: ford:fusion
files=(my [/mar/mime/hoon &+hoon+mar-mime]~)
file-store=~
0
*flow:fusion
*flue:fusion
==
@ -139,6 +141,7 @@
[/mar/txt-diff/hoon &+hoon+mar-txt-diff]
==
file-store=~
0
*flow:fusion
*flue:fusion
==
@ -168,6 +171,7 @@
%: ford:fusion
files
file-store=~
0
*flow:fusion
*flue:fusion
==
@ -186,6 +190,7 @@
%: ford:fusion
files
file-store=~
0
*flow:fusion
*flue:fusion
==
@ -205,6 +210,7 @@
%: ford:fusion
files
file-store=~
0
*flow:fusion
*flue:fusion
==
@ -218,6 +224,7 @@
%: ford:fusion
files=(my [/gen/hello/hoon &+hoon+gen-hello]~)
file-store=~
0
*flow:fusion
*flue:fusion
==
@ -243,6 +250,7 @@
[/sur/spider/hoon &+hoon+sur-spider]
==
file-store=~
0
*flow:fusion
*flue:fusion
==