module LeaderTest (tests) where

import ClassyPrelude (Either(..), ($), IO, return)
import Distribution.TestSuite

tests ::  IO [Test]
tests = return [ Test succeeds ]
      where
        succeeds = TestInstance { run = return $ Finished Pass
                                , name = "suceeds"
                                , tags = []
                                , options = []
                                , setOption = \_ _ -> Right succeeds
                                }
        fails = TestInstance    { run = return $ Finished $ Fail "Always fails."
                                , name = "fails"
                                , tags = []
                                , options = []
                                , setOption = \_ _ -> Right fails
                                }
      
