2021-11-17 22:50:39 +03:00
|
|
|
-- | A starting point feature test.
|
2022-01-21 10:48:27 +03:00
|
|
|
module Test.HelloWorldSpec (spec) where
|
2021-11-17 22:50:39 +03:00
|
|
|
|
2022-02-21 20:05:09 +03:00
|
|
|
import Harness.Test.Context qualified as Context
|
2022-04-20 20:15:42 +03:00
|
|
|
import Harness.TestEnvironment (TestEnvironment)
|
2022-02-14 20:24:24 +03:00
|
|
|
import Test.Hspec (SpecWith, it, shouldBe)
|
2021-11-17 22:50:39 +03:00
|
|
|
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
-- Preamble
|
|
|
|
|
2022-04-20 20:15:42 +03:00
|
|
|
spec :: SpecWith TestEnvironment
|
2022-02-21 20:05:09 +03:00
|
|
|
spec = Context.run [] tests
|
2021-11-17 22:50:39 +03:00
|
|
|
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
-- Tests
|
|
|
|
|
2022-04-20 20:15:42 +03:00
|
|
|
tests :: Context.Options -> SpecWith TestEnvironment
|
2022-02-14 20:24:24 +03:00
|
|
|
tests _opts = it "No-op" \_ -> do
|
|
|
|
() `shouldBe` ()
|