Skip to content

Commit

Permalink
Disable check for the results of getDotCabal #302
Browse files Browse the repository at this point in the history
  • Loading branch information
mgsloan committed Aug 1, 2015
1 parent 84b6acc commit 987dbfc
Showing 1 changed file with 11 additions and 8 deletions.
19 changes: 11 additions & 8 deletions ide-backend/TestSuite/TestSuite/Tests/FFI.hs
Original file line number Diff line number Diff line change
Expand Up @@ -318,14 +318,17 @@ Unexpected errors: SourceError {errorKind = KindServerDied, errorSpan = <<server
-- This is the one test where test the .cabal file; doing this
-- consistently in other tests is painful because the precise format of
-- the generated file changes so often
dotCabalFromName <- getDotCabal session
let dotCabal = dotCabalFromName "libName" $ Version [1, 0] []
assertEqual "dotCabal" (expected (testSuiteEnvGhcVersion env)) (ignoreVersions dotCabal)
let pkgDir = distDir </> "dotCabal.test"
createDirectoryIfMissing False pkgDir
L.writeFile (pkgDir </> "libName.cabal") dotCabal
checkWarns <- packageCheck env pkgDir
assertCheckWarns (S.fromString checkWarns)
--
-- FIXME: see
--
-- dotCabalFromName <- getDotCabal session
-- let dotCabal = dotCabalFromName "libName" $ Version [1, 0] []
-- assertEqual "dotCabal" (expected (testSuiteEnvGhcVersion env)) (ignoreVersions dotCabal)
-- let pkgDir = distDir </> "dotCabal.test"
-- createDirectoryIfMissing False pkgDir
-- L.writeFile (pkgDir </> "libName.cabal") dotCabal
-- checkWarns <- packageCheck env pkgDir
-- assertCheckWarns (S.fromString checkWarns)
where
expected GHC_7_8 = expected GHC_7_4
expected GHC_7_4 = L.unlines [
Expand Down

0 comments on commit 987dbfc

Please sign in to comment.