module Polysemy.Test.Test.FilesTest where

import qualified Data.Text as Text
import qualified Data.Text.IO as Text
import Path (relfile, toFilePath)

import Polysemy.Test (UnitTest, fixtureLines, runTestAuto, runTestInSubdir, tempFileLines, (===))
import qualified Polysemy.Test.Data.Test as Test

test_fixture :: UnitTest
test_fixture =
  runTestAuto do
    fixContent1 <- fixtureLines fixRel
    fixPath <- Test.fixturePath fixRel
    fixContent2 <- Text.lines <$> embed (Text.readFile (toFilePath fixPath))
    fixContent1 === fixContent2
    fixContent1 === ["file", "content"]
  where
    fixRel =
      [relfile|files/file1|]

test_tempFile :: UnitTest
test_tempFile =
  runTestInSubdir "test" do
    tempFile <- Test.tempFile content path
    tempFileContent1 <- tempFileLines path
    tempFIleContent2 <- Text.lines <$> embed (Text.readFile (toFilePath tempFile))
    tempFileContent1 === tempFIleContent2
    tempFileContent1 === content
  where
    path =
      [relfile|tempfile/file1|]
    content =
      ["line1", "line2"]