cabal-testsuite/PackageTests/DuplicateModuleName/tests/Foo.hs

   1 {-# LANGUAGE PackageImports #-}
   2 module Foo where
   3
   4 import Distribution.TestSuite
   5 import qualified "DuplicateModuleName" Foo as T
   6
   7 tests :: IO [Test]
   8 tests = do
   9     r <- T.tests
  10     return $ [Test $ TestInstance
  11           { run = return (Finished (Fail "B"))
  12           , name = "test B"
  13           , tags = []
  14           , options = []
  15           , setOption = \_ _-> Left "No Options"
  16           }] ++ r
  17
  18 this_is_test = True