From 7266b3f5c3ddde60b15427a8aa35e0fe97bfae18 Mon Sep 17 00:00:00 2001 From: Ted Blackman Date: Sun, 28 Jun 2020 00:59:02 -0400 Subject: [PATCH] hoon: re-fix +slab; /tests: fix clay tests --- pkg/arvo/sys/hoon.hoon | 4 ++-- pkg/arvo/tests/sys/vane/clay.hoon | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/pkg/arvo/sys/hoon.hoon b/pkg/arvo/sys/hoon.hoon index 2a288cb22..824b3a2cd 100644 --- a/pkg/arvo/sys/hoon.hoon +++ b/pkg/arvo/sys/hoon.hoon @@ -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 .* diff --git a/pkg/arvo/tests/sys/vane/clay.hoon b/pkg/arvo/tests/sys/vane/clay.hoon index 6ae08e19d..76b0f43de 100644 --- a/pkg/arvo/tests/sys/vane/clay.hoon +++ b/pkg/arvo/tests/sys/vane/clay.hoon @@ -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))