axel-0.0.5: test/Axel/Test/File/FileSpec.hs

module Axel.Test.File.FileSpec where

import Axel.Error as Error
import Axel.Haskell.File
import Axel.Monad.FileSystem as FS

import Data.ByteString.Lazy.Char8 as C

import System.FilePath

import Test.Tasty
import Test.Tasty.Golden

test_transpileSource_golden :: IO TestTree
test_transpileSource_golden = do
  axelFiles <- findByExtension [".axel_golden"] "test/Axel/Test/File"
  pure $
    testGroup "`transpileSource` golden tests" $ do
      axelFile <- axelFiles
      let hsFile = replaceExtension axelFile ".hs_golden"
      pure $
        goldenVsString
          (takeBaseName axelFile)
          hsFile
          (C.pack <$> Error.toIO (FS.readFile axelFile >>= transpileSource))