Check how many signatures it received

hydra-cluster/src/Hydra/Cluster/Scenarios.hs

@@ -89,7 +89,6 @@ import HydraNode (
   send,
   waitFor,
   waitForAllMatch,
-  waitForAllNoMatch,
   waitForNodesConnected,
   waitMatch,
   withHydraCluster,
@@ -191,10 +190,6 @@ oneOfNNodesCanDropForAWhile tracer workDir cardanoNode hydraScriptsTxId = do
       tx <- mkTransferTx testNetworkId utxo aliceCardanoSk aliceCardanoVk
       send n1 $ input "NewTx" ["transaction" .= tx]
 
-      -- Check that remaining parties do not see it confirmed ...
-      waitForAllNoMatch (200 * blockTime) [n1, n2] $ \v -> do
-        guard $ v ^? key "tag" == Just "SnapshotConfirmed"
-
       -- Carol reconnects, and then the snapshot can be confirmed
       withHydraNode hydraTracer carolChainConfig workDir 3 carolSk [aliceVk, bobVk] [1, 2, 3] $ \n3 -> do
         -- Note: We can't use `waitForAlMatch` here as it expects them to
@@ -204,6 +199,9 @@ oneOfNNodesCanDropForAWhile tracer workDir cardanoNode hydraScriptsTxId = do
           waitMatch (200 * blockTime) n $ \v -> do
             guard $ v ^? key "tag" == Just "SnapshotConfirmed"
             guard $ v ^? key "snapshot" . key "number" == Just (toJSON (2 :: Integer))
+            -- Just check that everyone signed it.
+            let sigs = v ^.. key "signatures" . key "multiSignature" . values
+            guard $ length sigs == 3
  where
   RunningNode{nodeSocket, networkId, blockTime} = cardanoNode
   hydraTracer = contramap FromHydraNode tracer