diff options
author | alexwl <alexey.a.kiryushin@gmail.com> | 2018-10-12 19:45:12 +0300 |
---|---|---|
committer | alexwl <alexey.a.kiryushin@gmail.com> | 2018-10-12 19:45:12 +0300 |
commit | c6fc26d897b147d5ac48d0d799230c5a4ddb791d (patch) | |
tree | 551da5840ddcb86475b8ce5ffccf73f1af154333 /test | |
parent | 166265e93de140c4a33f7a61bc004fb64be18275 (diff) |
Fix all GHC 8.4.3 compatibility issues. Needs a bit more testing.
Diffstat (limited to 'test')
-rw-r--r-- | test/Main.hs | 24 | ||||
-rw-r--r-- | test/test-package/stack-8.2.2.yaml | 1 | ||||
-rw-r--r-- | test/test-package/stack.yaml | 2 |
3 files changed, 19 insertions, 8 deletions
diff --git a/test/Main.hs b/test/Main.hs index f2247fb..11b94fb 100644 --- a/test/Main.hs +++ b/test/Main.hs @@ -140,17 +140,25 @@ moduleInfoSpec modInfo = it "returns valid map of identifiers " $ let removeLocationInfo :: HCE.LocationInfo -> HCE.LocationInfo removeLocationInfo _ = HCE.UnknownLocation "" - in U.transformBi - removeLocationInfo - (HCE.idInfoMap (modInfo :: HCE.ModuleInfo)) `shouldBe` - U.transformBi removeLocationInfo testIdInfoMap + removePackageVersionFromExternalId :: HCE.ExternalId -> HCE.ExternalId + removePackageVersionFromExternalId extId@(HCE.ExternalId textId) = case T.splitOn "|" textId of + packageId:rest -> case T.splitOn "-" packageId of + packageIdParts@(_:_) -> HCE.ExternalId $ T.intercalate "|" ((T.intercalate "-" (init packageIdParts)) : rest) + _ -> extId + _ -> extId + cleanup :: HCE.IdentifierInfoMap -> HCE.IdentifierInfoMap + cleanup = U.transformBi removeLocationInfo . U.transformBi removePackageVersionFromExternalId + in + cleanup (HCE.idInfoMap (modInfo :: HCE.ModuleInfo)) `shouldBe` cleanup testIdInfoMap #endif it "returns valid map of identifier occurrences" $ HCE.idOccMap (modInfo :: HCE.ModuleInfo) `shouldBe` testIdOccMap -stackYamlArg :: [String] -#if MIN_VERSION_GLASGOW_HASKELL(8,2,2,0) +stackYamlArg :: [String] +#if MIN_VERSION_GLASGOW_HASKELL(8,4,3,0) stackYamlArg = [] +#elif MIN_VERSION_GLASGOW_HASKELL(8,2,2,0) +stackYamlArg = ["--stack-yaml=stack-8.2.2.yaml" ] #else stackYamlArg = ["--stack-yaml=stack-8.0.2.yaml" ] #endif @@ -177,7 +185,7 @@ buildAndIndexTestPackage currentDir = do _ <- readProcess stackExecutable - (["build", "--test"] ++ stackYamlArg) + (["build", "--test","--force-dirty"] ++ stackYamlArg) "" runLoggingT (createPackageInfo @@ -1209,3 +1217,5 @@ testIdInfoMap = , isExported = False }) ] + + diff --git a/test/test-package/stack-8.2.2.yaml b/test/test-package/stack-8.2.2.yaml new file mode 100644 index 0000000..5bad591 --- /dev/null +++ b/test/test-package/stack-8.2.2.yaml @@ -0,0 +1 @@ +resolver: lts-11.3 diff --git a/test/test-package/stack.yaml b/test/test-package/stack.yaml index 5bad591..80a9a5a 100644 --- a/test/test-package/stack.yaml +++ b/test/test-package/stack.yaml @@ -1 +1 @@ -resolver: lts-11.3 +resolver: lts-12.12 |