cabal-testsuite/PackageTests/Regression/T4270/Test.hs

   1 module Test where
   2
   3 import Lib
   4
   5 import Distribution.TestSuite
   6
   7 tests :: IO [Test]
   8 tests = return [Test bar]
   9   where
  10     bar = TestInstance
  11         { run = return $ Finished run
  12         , name = "test"
  13         , tags = []
  14         , options = []
  15         , setOption = \_ _ -> Right bar
  16         }
  17     run = if foo then Pass else Fail "should pass"