diff options
author | Alexander Foremny <aforemny@posteo.de> | 2024-07-25 09:42:11 +0200 |
---|---|---|
committer | Alexander Foremny <aforemny@posteo.de> | 2024-08-08 15:46:58 +0200 |
commit | 272b3ace747857729171780edae898819d211832 (patch) | |
tree | 5e791779a318521175104a7e9140dc186c4b3d54 /test/PureSpec.hs |
init
Diffstat (limited to 'test/PureSpec.hs')
-rw-r--r-- | test/PureSpec.hs | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/test/PureSpec.hs b/test/PureSpec.hs new file mode 100644 index 0000000..5f718e7 --- /dev/null +++ b/test/PureSpec.hs @@ -0,0 +1,10 @@ +module PureSpec (spec) where + +import Data.Sensor qualified as S +import Test.Hspec + +spec :: Spec +spec = do + describe "Pure" do + it "pure" do + S.runSensorT (S.sample 1 (pure "")) >>= (`shouldBe` [""]) |