fix tests and update pill

bin/solid.pill

@@ -1,3 +1,3 @@
 version https://git-lfs.github.com/spec/v1
-oid sha256:54dae6825ebdcd680241ebcee83fbd4263c8f3dd71adf0009700e79d99c3be2c
+oid sha256:6de646b97da2bb8869178d21659e16e1d298c8fbd45905c57a1af24ca458bc6e
-size 9627570
+size 9699525

pkg/arvo/tests/sys/hoon/vases.hoon

@@ -1,33 +1,29 @@
 /+  *test
 |%
-++  test-slam-wa  ^-  tang
+++  test-slam-wa-dry  ^-  tang
+  ::
+  %+  expect-eq
+    !>(7)
+    -:(~(slam wa *worm) !>(add) !>([3 4]))
+::
+++  test-slam-wa-wet  ^-  tang
+  ::
+  =/  list-type=type  -:!>(*(list @))
+  =|  worm0=worm
+  =+  [res1 worm1]=(~(slam wa worm0) !>(flop) [list-type ~[1 2 3]])
+  =+  [res2 worm2]=(~(slam wa worm1) !>(flop) [list-type ~[4 5 6]])
   ::
   ;:  weld
     %+  expect-eq
-      !>(7)
+      res1
-      -:(~(slam wa *worm) !>(add) !>([3 4]))
+      [list-type ~[3 2 1]]
   ::
     %+  expect-eq
-      !>(~[3 2 1])
+      res2
-      -:(~(slam wa *worm) !>(flop) !>(~[1 2 3]))
+      [list-type ~[6 5 4]]
   ::
-    =|  =worm
+    %+  expect-eq
-    =^  res1  worm  (~(slam wa worm) !>(flop) !>(`(list @)`~[1 2 3]))
+      !>  worm1
-    =/  worm1  worm
+      !>  worm2
-    =^  res2  worm  (~(slam wa worm) !>(flop) !>(`(list @)`~[4 5 6]))
-    ::
-    ;;  weld
-      %+  expect-eq
-        res1
-        !>(`(list @)`~[3 2 1])
-    ::
-      %+  expect-eq
-        res2
-        !>(`(list @)`~[6 5 4])
-    ::
-      %+  expect-eq
-        worm
-        worm1
-    ==
   ==
 --