test/PureSpec.hs


1
2
3
4
5
6
7
8
9
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` [""])