From 500362b82daafe59736dd8a3f17a79e702d0ce89 Mon Sep 17 00:00:00 2001 From: shum Date: Wed, 14 Oct 2026 16:23:28 +0000 Subject: [PATCH] tests: pass CorrCbNonce to forwardSMPTransmission --- tests/SMPProxyTests.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/SMPProxyTests.hs b/tests/SMPProxyTests.hs index 6cbaf3197..bf454a4de 100644 --- a/tests/SMPProxyTests.hs +++ b/tests/SMPProxyTests.hs @@ -580,7 +580,7 @@ testForwardOversizedNotKept = c <- either (fail . show) pure =<< getProtocolClient g NRMBackground (1, testSMPServer, Nothing) proxyClientCfg [] Nothing ts (\_ -> pure ()) (k, _) <- atomically $ C.generateKeyPair @'C.X25519 g let et = SMP.EncTransmission $ B.replicate smpBlockSize 'a' - runExceptT (forwardSMPTransmission c (SMP.CorrId "123456789012345678901234") currentClientSMPRelayVersion k et) + runExceptT (forwardSMPTransmission c (either error id $ C.corrCbNonce "123456789012345678901234") currentClientSMPRelayVersion k et) `shouldReturn` Left (PCETransportError TELargeMsg) pClientSentCommandsCount c `shouldReturn` 0