unicoder-0.5.0: test/test.hs

import System.IO
import System.Exit
import Control.Monad
import qualified Data.Text.IO as T

import Text.Unicoder

main :: IO ()
main = do
    m_config <- loadConfig "test/test.config"
    testFile <- case m_config of
        Nothing -> die "Could not parse config file."
        Just config -> return $ testFile config
    let files = ["passthrough", "mono", "di"]
    results <- mapM testFile files
    unless (and results) $ do
        mapM_ putStrLn $ zipWith (\a b -> a ++ ": " ++ if b then "OK" else "FAILURE") files results
        exitFailure

testFile :: Config -> FilePath -> IO Bool
testFile config path = do
    input <- T.readFile $ "test/" ++ path ++ ".in"
    output <- T.readFile $ "test/" ++ path ++ ".out"
    return $ unicodize config input == output