test: tlv

This commit is contained in:
Jōshin 2022-02-13 20:37:34 -06:00
parent 22ef135323
commit e4f5438e88
No known key found for this signature in database
GPG Key ID: A8BE5A9A521639D0

View File

@ -88,7 +88,7 @@
?> ?=(%poke -.r.not) ?> ?=(%poke -.r.not)
=* cag cage.r.not =* cag cage.r.not
?> ?=(%spider-start p.cag) ?> ?=(%spider-start p.cag)
=/ rags =/ rag
:: XX $start-args in %/app/spider/hoon :: XX $start-args in %/app/spider/hoon
:: ::
!< [p=(unit @ta) q=(unit @ta) r=beak s=term t=vase] !< [p=(unit @ta) q=(unit @ta) r=beak s=term t=vase]
@ -98,8 +98,8 @@
!> :* ~ `%'khan-fyrd--0vthat.ductt' !> :* ~ `%'khan-fyrd--0vthat.ductt'
[~nul %base %da now] %nonexistent ~ [~nul %base %da now] %nonexistent ~
== ==
!>(rags(t ~)) !>(rag(t ~))
=/ results-8 (expect-eq !>(~) t.rags) =/ results-8 (expect-eq !>(~) t.rag)
;: weld ;: weld
results-0 results-1 results-2 results-0 results-1 results-2
results-3 results-4 results-5 results-3 results-4 results-5