fixup: improve score testing

karknu · karknu · commit 086f290e8dce · 2026-04-27T10:08:33.000+02:00
Test the peer score functionality.
Use arbitrary TxDecisionPolicy instead of the defaultTxDecisionPolicy.
diff --git a/ouroboros-network/lib/Ouroboros/Network/TxSubmission/Inbound/V2/Policy.hs b/ouroboros-network/lib/Ouroboros/Network/TxSubmission/Inbound/V2/Policy.hs
@@ -64,7 +64,7 @@ data TxDecisionPolicy = TxDecisionPolicy {
       interTxSpace           :: !DiffTime
       -- ^ space between actual requests for the same TX.
     }
-  deriving Show
+  deriving (Eq, Show)
 
 instance NFData TxDecisionPolicy where
   rnf TxDecisionPolicy{} = ()
diff --git a/ouroboros-network/lib/Ouroboros/Network/TxSubmission/Inbound/V2/State.hs b/ouroboros-network/lib/Ouroboros/Network/TxSubmission/Inbound/V2/State.hs
@@ -12,6 +12,7 @@ module Ouroboros.Network.TxSubmission.Inbound.V2.State
   , advertisingPeersForTxKeysExcept
   , advertisingPeersForTxExcept
   , removeAdvertisingPeersForResolvedTx
+  , currentPeerScore
   , drainPeerScore
   , applyPeerRejections
   , sweepSharedState
diff --git a/ouroboros-network/tests/lib/Test/Ouroboros/Network/TxSubmission/TxLogic.hs b/ouroboros-network/tests/lib/Test/Ouroboros/Network/TxSubmission/TxLogic.hs

Original file line number	Diff line number	Diff line change
`@@ -64,7 +64,7 @@ data TxDecisionPolicy = TxDecisionPolicy {`
`64`	`64`	`interTxSpace :: !DiffTime`
`65`	`65`	`-- ^ space between actual requests for the same TX.`
`66`	`66`	`}`
`67`		`- deriving Show`
	`67`	`+ deriving (Eq, Show)`
`68`	`68`
`69`	`69`	`instance NFData TxDecisionPolicy where`
`70`	`70`	`rnf TxDecisionPolicy{} = ()`