uniform-io/test/Base.hs

{-# LANGUAGE OverloadedStrings #-}

module Base (simpleTest) where

import Distribution.TestSuite

simpleTest :: String -> IO Progress -> Test
simpleTest n t = 
  let test = TestInstance
        {run = t,
         name = n,
         tags = [],
         options = [],
         setOption = \_ _ -> Right test
        }
  in Test test