2021-11-17 22:50:39 +03:00
|
|
|
-- | A starting point feature test.
|
|
|
|
module HelloWorldSpec (spec) where
|
|
|
|
|
|
|
|
import Harness.Feature qualified as Feature
|
2021-11-23 21:15:17 +03:00
|
|
|
import Harness.State (State)
|
2021-11-17 22:50:39 +03:00
|
|
|
import Test.Hspec
|
2021-11-23 21:15:17 +03:00
|
|
|
import Prelude
|
2021-11-17 22:50:39 +03:00
|
|
|
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
-- Preamble
|
|
|
|
|
2021-11-23 21:15:17 +03:00
|
|
|
spec :: SpecWith State
|
2021-11-17 22:50:39 +03:00
|
|
|
spec =
|
|
|
|
Feature.feature
|
|
|
|
Feature.Feature
|
|
|
|
{ Feature.backends = [],
|
|
|
|
Feature.tests = tests
|
|
|
|
}
|
|
|
|
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
-- Tests
|
|
|
|
|
2021-11-23 21:15:17 +03:00
|
|
|
tests :: SpecWith State
|
|
|
|
tests = it "No-op" (const (shouldBe () ()))
|