hoon: re-fix +slab; /tests: fix clay tests

This commit is contained in:
Ted Blackman 2020-06-28 00:59:02 -04:00
parent 42de999024
commit 7266b3f5c3
2 changed files with 3 additions and 3 deletions

View File

@ -12024,8 +12024,8 @@
::
++ slab :: test if contains
|= [way=?(%read %rite %both) cog=@tas typ=type]
?= [%| *]
(~(find ut typ) way ~[cog])
?= [%& *]
(~(fond ut typ) way ~[cog])
::
++ slap
|= {vax/vase gen/hoon} ^- vase :: untyped vase .*

View File

@ -153,7 +153,7 @@
=/ [res=vase nub=state:ford:fusion] (build-file:ford /lib/strandio/hoon)
;: weld
%- expect
!>((slab %get-our -.res))
!>((slab %read %get-our -.res))
::
%+ expect-eq
!> %- ~(gas in *(set path))