Commit c9032663 authored by Duncan Coutts's avatar Duncan Coutts
Browse files

Remove obsolete test code

parent e412f608
...@@ -661,24 +661,3 @@ checkPackageProblems verbosity mgpkg pkg = do ...@@ -661,24 +661,3 @@ checkPackageProblems verbosity mgpkg pkg = do
then mapM_ (warn verbosity) warnings then mapM_ (warn verbosity) warnings
else do mapM_ (hPutStrLn stderr . ("Error: " ++)) errors else do mapM_ (hPutStrLn stderr . ("Error: " ++)) errors
exitWith (ExitFailure 1) exitWith (ExitFailure 1)
-- -----------------------------------------------------------------------------
-- Tests
{- Too specific:
hunitTests :: [Test]
hunitTests = []
packageID = PackageIdentifier "Foo" (Version [1] [])
= [TestCase $
do let simonMarGHCLoc = "/usr/bin/ghc"
simonMarGHC <- configure emptyPackageDescription {package=packageID}
(Just GHC,
Just simonMarGHCLoc,
Nothing, Nothing)
assertEqual "finding ghc, etc on simonMar's machine failed"
(LocalBuildInfo "/usr" (Compiler GHC
(Version [6,2,2] []) simonMarGHCLoc
(simonMarGHCLoc ++ "-pkg")) [] [])
simonMarGHC
]
-}
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment