Foo.hs 420 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
{-# LANGUAGE PackageImports #-}
module Foo where

import Distribution.TestSuite
import qualified "DuplicateModuleName" Foo as T

tests :: IO [Test]
tests = do
    r <- T.tests
    return $ [Test $ TestInstance
          { run = return (Finished (Fail "B"))
          , name = "test B"
          , tags = []
          , options = []
          , setOption = \_ _-> Left "No Options"
          }] ++ r

this_is_test = True