From 272b3ace747857729171780edae898819d211832 Mon Sep 17 00:00:00 2001 From: Alexander Foremny Date: Thu, 25 Jul 2024 09:42:11 +0200 Subject: init --- test/PureSpec.hs | 10 ++++++++++ 1 file changed, 10 insertions(+) create mode 100644 test/PureSpec.hs (limited to 'test/PureSpec.hs') 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` [""]) -- cgit v1.2.3