Failing test computing average

input-output-hk · May 4, 2021 · 3491b33 · 3491b33
1 parent cb15ba6
commit 3491b33
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 0 deletions.
diff --git a/hydra-sim.cabal b/hydra-sim.cabal
@@ -130,6 +130,8 @@ test-suite tests
     , hspec
     , hydra-sim -any
     , QuickCheck -any
+    , io-sim-classes -any
+    , io-sim -any
   build-tool-depends:
     hspec-discover:hspec-discover
   ghc-options:

diff --git a/test/HydraSim/AnalyseSpec.hs b/test/HydraSim/AnalyseSpec.hs
@@ -1,5 +1,7 @@
 module HydraSim.AnalyseSpec where
 
+import Control.Monad.Class.MonadTime (Time (Time))
+import Control.Monad.IOSim (ThreadLabel)
 import HydraSim.Analyse
 import Test.Hspec
 
@@ -8,3 +10,11 @@ spec = describe "Analyse Simulation" $ do
     describe "Average Confirmation Time" $ do
         it "returns Nothing given no transaction" $ do
             avgConfTime [] `shouldBe` Nothing
+        it "returns Nothing given no transaction is confirmed" $ do
+            avgConfTime [TxUnconfirmed someLabel someTime] `shouldBe` Nothing
+
+someTime :: Time
+someTime = Time 10000
+
+someLabel :: ThreadLabel
+someLabel = "thread"