module Tests.Utils.Tests where

import Data.GenValidity.Map ()
import Data.GenValidity.Sequence ()
import Data.GenValidity.Set ()
import Data.GenValidity.Text ()
import Data.List qualified as List
import Data.Text qualified as Text
import Data.Validity.Map ()
import Data.Validity.Set ()
import Data.Validity.Text ()
import System.FilePath (joinPath, pathSeparator, (<.>), (</>))
import Test.Syd

import Literate.Prelude

-- import System.Directory qualified as IO

goldenPath title ext = do
  descrPath <- getTestDescriptionPath
  let dirPath =
        List.reverse descrPath
          <&> Text.unpack
          . Text.replace (Text.pack ".") (Text.singleton pathSeparator)
          & joinPath
  return $ "tests" </> "Tests" </> dirPath </> title <.> ext