From 376c4a9ae18a0a659fa954de7e2dc336572f6c97 Mon Sep 17 00:00:00 2001
From: Scott Lystig Fritchie <slfritchie@snookles.com>
Date: Fri, 8 May 2015 18:22:44 +0900
Subject: [PATCH] WIP: failing test for append while wedged

---
 test/machi_flu_psup_test.erl | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/test/machi_flu_psup_test.erl b/test/machi_flu_psup_test.erl
index 7aba38d..5b289d5 100644
--- a/test/machi_flu_psup_test.erl
+++ b/test/machi_flu_psup_test.erl
@@ -82,9 +82,15 @@ partial_stop_restart2() ->
     WedgeStatus = fun({_,#p_srvr{address=Addr, port=TcpPort}}) ->
                           machi_flu1_client:wedge_status(Addr, TcpPort)
                   end,
+    Append = fun({_,#p_srvr{address=Addr, port=TcpPort}}) ->
+                     machi_flu1_client:append_chunk(Addr, TcpPort,
+                                                    ?DUMMY_PV1_EPOCH,
+                                                    <<"prefix">>, <<"data">>)
+                  end,
     try
         [Start(P) || P <- Ps],
         [{ok, {true, _}} = WedgeStatus(P) || P <- Ps], % all are wedged
+        [bummer = Append(P) || P <- Ps], % all are wedged
 
         [machi_chain_manager1:set_chain_members(ChMgr, Dict) ||
             ChMgr <- ChMgrs ],