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