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` [""])