From ae1d394fbf6c6a1b240888a69eaed1897af11a37 Mon Sep 17 00:00:00 2001
From: Ted Blackman <ted@tlon.io>
Date: Tue, 25 Jun 2019 16:39:10 -0700
Subject: [PATCH] cleanup and rename to +test-message-flow

---
 tests/sys/vane/alef.hoon | 20 +++++++++++++-------
 1 file changed, 13 insertions(+), 7 deletions(-)

diff --git a/tests/sys/vane/alef.hoon b/tests/sys/vane/alef.hoon
index 49ea2b54f..a9d6eb88e 100644
--- a/tests/sys/vane/alef.hoon
+++ b/tests/sys/vane/alef.hoon
@@ -121,7 +121,7 @@
       !>  (~(got by peers.ames-state.+.res) ~nec)
   ==
 ::
-++  test-send-rcv-message  ^-  tang
+++  test-message-flow  ^-  tang
   ::
   =^  moves1  alice
     (call alice ~[/alice] %memo ~doznec-doznec /g/talk [%get %post])
@@ -135,12 +135,18 @@
   =^  moves6  alice  (call alice ~[/alice] %hear (snag-packet 0 moves5))
   =^  moves7  bob    (call bob ~[/bob] %hear (snag-packet 0 moves6))
   ::
-  %+  expect-eq
-    !>  :~  :+  ~[/alice]  %give  [%done error=~]
-            :+  ~[/alice]  %pass
-            [/pump/~doznec-doznec/0 %b %rest ~1111.1.1..00.00.06]
-        ==
-    !>  moves4
+  ;:  weld
+    %+  expect-eq
+      !>  :~  :+  ~[/alice]  %give  [%done error=~]
+              :+  ~[/alice]  %pass
+              [/pump/~doznec-doznec/0 %b %rest ~1111.1.1..00.00.06]
+          ==
+      !>  moves4
+  ::
+    %+  expect-eq
+      !>  [~[/alice] %give %memo /g/talk %post 'first1!!']
+      !>  (snag 1 `(list move:alef)`moves6)
+  ==
 ::
 ++  test-nack  ^-  tang
   =^  moves1  alice