cleveland-0.1.0: test/TestSuite/Cleveland/BlockIntervalGetter.hs

-- SPDX-FileCopyrightText: 2020 Tocqueville Group
--
-- SPDX-License-Identifier: LicenseRef-MIT-TQ

module TestSuite.Cleveland.BlockIntervalGetter
  ( test_BlockIntervalGetter
  ) where

import Test.Tasty

import Test.Cleveland

test_BlockIntervalGetter :: TestTree
test_BlockIntervalGetter =
  testScenario "Approximate block interval can be obtained" $ scenario do
    comment "Getting approximate block interval"
    blockInterval <- getApproximateBlockInterval
    comment "Wait for obtained interval amount of time"
    advanceTime blockInterval