naive: add test categories

This commit is contained in:
drbeefsupreme 2021-06-10 13:22:10 -04:00
parent da53512560
commit 71c6b45bc4
No known key found for this signature in database
GPG Key ID: B70D5683DE7F9EFC

View File

@ -629,15 +629,18 @@
%+ weld $(ship-list t.ship-list)
=/ cur-ship i.ship-list
::
::%+ category `@t`cur-ship
%+ category (scow %p cur-ship)
=/ current-events (~(get ja event-jar) cur-ship)
|- ^- tang
?~ current-events ~
%+ weld $(current-events t.current-events)
=/ cur-event i.-.current-events
:: %+ category cur-event
%+ category (weld "dominion " (scow %tas dominion.cur-event))
%+ category (weld "proxy " (scow %tas proxy.cur-event))
%+ category (weld "tx-type " (scow %tas tx-type.cur-event))
%+ category (weld "owner? " (scow %f owner.cur-event))
%+ category (weld "correct nonce? " (scow %f nonce.cur-event))
=/ state initial-state
:: %+ category i.current-events
%+ expect-eq
!> (~(got by suc-map) cur-event)
::
@ -649,7 +652,7 @@
%bat
=< q
%- gen-tx
:+ nonce.owner.own:(~(got by points.state) cur-ship)
:+ +(nonce.owner.own:(~(got by points.state) cur-ship))
:+ [cur-ship proxy.cur-event]
%set-management-proxy ::tx-type.cur-event why does the tx-type not work?
(addr common-mgmt)