Make state spec fail for the right reason

There is a member with more than 1 PT token minted
input-output-hk · Feb 8, 2023 · beaf917 · beaf917
1 parent f66b0ed
commit beaf917
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/hydra-node/test/Hydra/Chain/Direct/StateSpec.hs b/hydra-node/test/Hydra/Chain/Direct/StateSpec.hs
@@ -151,7 +151,7 @@ spec = parallel $ do
                       { networkId = networkId cctx
                       , -- Here we use wrong cardano-keys to build the tx
                         -- as they are used to generate the PT tokens to be minted
-                        peerVerificationKeys = ownVerificationKey cctx : List.tail (peerVerificationKeys cctx)
+                        peerVerificationKeys = List.head (peerVerificationKeys cctx) : peerVerificationKeys cctx
                       , ownVerificationKey = ownVerificationKey cctx
                       , ownParty = ownParty cctx
                       , scriptRegistry = scriptRegistry cctx