tests/Tests/Utils/Tests.hs

   1 module Tests.Utils.Tests where
   2
   3 import Data.GenValidity.Map ()
   4 import Data.GenValidity.Sequence ()
   5 import Data.GenValidity.Set ()
   6 import Data.GenValidity.Text ()
   7 import Data.List qualified as List
   8 import Data.Text qualified as Text
   9 import Data.Validity.Map ()
  10 import Data.Validity.Set ()
  11 import Data.Validity.Text ()
  12 import System.FilePath (joinPath, pathSeparator, (<.>), (</>))
  13 import Test.Syd
  14
  15 import Literate.Prelude
  16
  17 -- import System.Directory qualified as IO
  18
  19 goldenPath title ext = do
  20   descrPath <- getTestDescriptionPath
  21   let dirPath =
  22         List.reverse descrPath
  23           <&> Text.unpack
  24           . Text.replace (Text.pack ".") (Text.singleton pathSeparator)
  25           & joinPath
  26   return $ "tests" </> "Tests" </> dirPath </> title <.> ext