17 lines
379 B
Haskell
17 lines
379 B
Haskell
{-# LANGUAGE NamedFieldPuns #-}
|
|
module Utils
|
|
( labeled
|
|
, testDataPath
|
|
, testGroup ) where
|
|
|
|
import System.FilePath ((</>))
|
|
import Test.HUnit (Test(..))
|
|
|
|
testDataPath :: FilePath -> FilePath
|
|
testDataPath = ("test" </>)
|
|
|
|
testGroup :: String -> [Test] -> Test
|
|
testGroup name = TestLabel name . TestList
|
|
|
|
labeled :: [(String, Test)] -> [Test]
|
|
labeled = fmap (uncurry TestLabel)
|