Helpers.hs

module Test.Helpers
    ( (<&>)
    , rmap
    , assertEq
    , ioErrorHandler
    , rootPath
    , sort
    , testsPath
    ) where

import Shikensu.Sorting (sortByAbsolutePath)
import Shikensu.Types (Dictionary)
import System.Directory (canonicalizePath)
import System.FilePath (combine)
import Test.Tasty.HUnit (Assertion, assertEqual)

import qualified Data.List as List


(<&>) :: Functor f => f a -> (a -> b) -> f b
(<&>) =
    flip fmap


rmap :: Functor f => f a -> (a -> b) -> f b
rmap =
    (<&>)


assertEq :: (Eq a, Show a) => a -> a -> Assertion
assertEq =
    assertEqual ""


ioErrorHandler :: IOError -> IO ()
ioErrorHandler _ =
    putStrLn ""


rootPath :: IO FilePath
rootPath =
    canonicalizePath "./"


sort :: Dictionary -> Dictionary
sort =
    List.sortBy sortByAbsolutePath


testsPath :: IO FilePath
testsPath =
    fmap ((flip combine) "tests") rootPath