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