Skip to content
Permalink
Browse files

Add some labels

  • Loading branch information...
Anviking committed Nov 8, 2019
1 parent 265e5f0 commit b3ec9405febb9e4fcfb482e9bb6c9d1b31e7bd93
Showing with 6 additions and 4 deletions.
  1. +6 −4 lib/core/test/unit/Cardano/Pool/DB/Properties.hs
@@ -154,12 +154,14 @@ prop_putReadPoolProduction
, putPoolProduction = putPoolProduction'
, readPoolProduction = readPoolProduction'
}
= liftIO $ do
atomically $ forM_ pairs $ \(pool, slot) ->
= do
run . atomically $ forM_ pairs $ \(pool, slot) ->
unsafeRunExceptT $ putPoolProduction slot pool
atomically' $ forM_ pairs $ \(pool, slot) ->
run . atomically' $ forM_ pairs $ \(pool, slot) ->
unsafeRunExceptT $ putPoolProduction' slot pool
forM_ (uniqueEpochs pairs) $ \epoch -> do
monitor $ classify (length pairs > 100) "productions > 100"
monitor $ classify (length pairs > 1000) "productions > 1000"
run . forM_ (uniqueEpochs pairs) $ \epoch -> do
res' <- atomically' $ readPoolProduction' epoch
atomically (readPoolProduction epoch) `shouldReturn` res'

0 comments on commit b3ec940

Please sign in to comment.
You can’t perform that action at this time.