{-# 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)