test: fix failure introduced by random tids

This commit is contained in:
Jōshin 2022-02-25 11:08:09 -08:00
parent d771a4b9ef
commit 224a363780
No known key found for this signature in database
GPG Key ID: A8BE5A9A521639D0

View File

@ -68,12 +68,15 @@
%fard fard %fard fard
== == == ==
=/ results-0 (expect !>(=(2 (lent start-moves)))) =/ results-0 (expect !>(=(2 (lent start-moves))))
:: XX overspecified
::
=/ expected-tid (cat 3 'khan-fyrd--' (scot %uv (sham 0xdead.beef)))
=/ results-1 =/ results-1
%+ expect-eq %+ expect-eq
!> :* ~[//khan/1/0vthat.ductt] !> :* ~[//khan/1/0vthat.ductt]
%pass //g %g %deal %pass //g %g %deal
[~nul ~nul] %spider %watch [~nul ~nul] %spider %watch
/thread-result/'khan-fyrd--0vthat.ductt' /thread-result/[expected-tid]
== ==
!> (head start-moves) !> (head start-moves)
=/ mev (rear start-moves) =/ mev (rear start-moves)
@ -95,7 +98,7 @@
q.cag q.cag
=/ results-7 =/ results-7
%+ expect-eq %+ expect-eq
!> :* ~ `%'khan-fyrd--0vthat.ductt' !> :* ~ `expected-tid
[~nul %base %da now] %nonexistent ~ [~nul %base %da now] %nonexistent ~
== ==
!>(rag(t ~)) !>(rag(t ~))