ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-09-20 15:08:34 +03:00
Code Issues Packages Projects Releases Wiki Activity

test: cleanup

Browse Source
This commit is contained in:
Jōshin 2022-02-13 19:58:36 -06:00
parent 76911c6784
commit a1621ed2d4
No known key found for this signature in database
GPG Key ID: A8BE5A9A521639D0
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
pkg/arvo/tests/sys/vane/khan.hoon
View File

@ -33,19 +33,17 @@
%+ expect-eq %+ expect-eq
!> ~[//khan/1/0vsome.ductt] !> ~[//khan/1/0vsome.ductt]
!> p.mev !> p.mev
=- :(weld results-0 results-1 results-2 rest) ?> ?=(%pass -.q.mev)
^= rest
?. ?=(%pass -.q.mev) !!
=/ results-3 =/ results-3
%+ expect-eq %+ expect-eq
!> /fyrd/~nul/base/da/~1111.1.1..00.00.01/noun !> /fyrd/~nul/base/da/~1111.1.1..00.00.01/noun
!> wire.q.mev !> wire.q.mev
=/ results-4 (expect-eq !>(%k) !>(-.note.q.mev)) =/ results-4 (expect-eq !>(%k) !>(-.note.q.mev))
=- :(weld results-3 results-4 rest) ?> ?=(%fard +<.note.q.mev)
^= rest
?. ?=(%fard +<.note.q.mev) !!
=/ fad p.note.q.mev =/ fad p.note.q.mev
;: weld ;: weld
results-0 results-1 results-2
results-3 results-4
(expect-eq !>(%base) !>(bear.fad)) (expect-eq !>(%base) !>(bear.fad))
(expect-eq !>(%nonexistent) !>(name.fad)) (expect-eq !>(%nonexistent) !>(name.fad))
(expect-eq !>(`~) args.fad) (expect-eq !>(`~) args.fad)