basic love

test/Data/TypesSpec.hs

@@ -0,0 +1,16 @@
+module Data.TypesSpec (spec) where
+
+import Data.Types (UserId (..))
+import Serialize.Str
+import Test.Hspec
+
+spec :: Spec
+spec = describe "userId StringTrans" $ do
+    it "fromStr should convert String to UserId::Discord" $ do
+        fromStr "d:muffin" `shouldBe` Just (Discord "muffin")
+
+    it "fromStr should fail conversion" $ do
+        (fromStr "muffin" :: Maybe UserId) `shouldBe` Nothing
+
+    it "toStr should convert UserId to String" $ do
+        toStr (Discord "muffin") `shouldBe` "d:muffin"