fix SizeAndCapacity generating examples where size > capacity

IntersectMBO · Jan 24, 2025 · 44cd74b · 44cd74b
1 parent b893a99
commit 44cd74b
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/ouroboros-network-protocols/testlib/Ouroboros/Network/Protocol/LocalTxMonitor/Test.hs b/ouroboros-network-protocols/testlib/Ouroboros/Network/Protocol/LocalTxMonitor/Test.hs
@@ -242,8 +242,8 @@ instance Arbitrary MeasureName where
 
 instance Arbitrary (SizeAndCapacity Integer) where
   arbitrary = do
-    Positive s <- arbitrary
-    c <- chooseInteger (0, s)
+    Positive c <- arbitrary
+    s <- chooseInteger (0, c)
     pure $ SizeAndCapacity s c
 
 instance Arbitrary MempoolSizeAndCapacity where