chore: sample1

test/Main.hs

@@ -0,0 +1,31 @@
+{-# LANGUAGE FlexibleInstances #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RecordWildCards #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+
+module Main (main) where
+
+import Data.Aeson.Key qualified as K
+import Data.Aeson.KeyMap qualified as KM
+import Data.List (isInfixOf)
+import Data.List qualified as L
+import Data.Text qualified as T
+import Data.Yaml hiding (Parser)
+import Test.Tasty
+import Test.Tasty.HUnit
+import Test.Tasty.QuickCheck as QC
+
+main :: IO ()
+main = spec >>= defaultMain
+
+spec :: IO TestTree
+spec = return $ testGroup "{{ project_name }} tests" [baseTests]
+
+baseTests :: TestTree
+baseTests =
+    testGroup
+        "Base"
+        [ QC.testProperty "example function works" $
+            \(num :: Integer) ->
+                num * 0 == 0
+        ]