From bf2c6ad6782df5963101bc3e73c0d31d65e0829f Mon Sep 17 00:00:00 2001 From: V3n3RiX Date: Mon, 25 Jul 2022 08:55:56 +0100 Subject: gentoo auto-resync : 25:07:2022 - 08:55:56 --- dev-haskell/aeson/Manifest | 1 - .../files/aeson-1.5.6.0-fix-tests-ghc_9.patch | 232 --------------------- 2 files changed, 233 deletions(-) delete mode 100644 dev-haskell/aeson/files/aeson-1.5.6.0-fix-tests-ghc_9.patch (limited to 'dev-haskell/aeson') diff --git a/dev-haskell/aeson/Manifest b/dev-haskell/aeson/Manifest index f4cb61377367..fd94b87397ee 100644 --- a/dev-haskell/aeson/Manifest +++ b/dev-haskell/aeson/Manifest @@ -1,4 +1,3 @@ -AUX aeson-1.5.6.0-fix-tests-ghc_9.patch 9678 BLAKE2B 40512bbb1bbd0d8a80baad69ce70454132bb81aecedcf0011c7466c1eea81871e205af54da9f4aa51abd34ad4a64289f9ae28bdb90433dd07f03111795c54ff2 SHA512 e81925089a7bd43f9aaebaf20633afeb66b59fe5eb3c9e2b2123d5b4e790e5143a9470b0726698cfb6588132fc68296f5b60f0ccbf12bcb23fff3fe20ddbf915 DIST aeson-2.0.3.0-rev1.cabal 5867 BLAKE2B c64638d037ee4599a15c2c2c051b569649f57663312aaebc10c2a47cf2dfd834d03e8e4c909d70874737fd407f46f75744052ebe9319cde8ef56e4676115dbe0 SHA512 54b3ed453d6ec93a73d4bb639132164e1ffa698e87076577da39137ec2bb62b0c1a2f66d9412e1adad97d7d6cc32a6738e0495b0c4d312c183d7a29d01a29784 DIST aeson-2.0.3.0.tar.gz 297283 BLAKE2B e6784fd2081c56d6f2f2fb82b383478ab743fcce77568c430c2b62a79b4ee89901b7e278b1da948215215d50ef72bbdef128fb5dfb6679c92d30586d1406302e SHA512 546adaaf864ca40012a268d71f442479f0ad7c69e9f943391801570e227a2faa652494766f1f63b77c730e019e83ebdd7511426baa12792a28fbb470eca64552 EBUILD aeson-2.0.3.0.ebuild 3185 BLAKE2B 9bf0dcfdb4c766f99f3147315f29468177819b389f9a7ebaba8a06bb31c69f2b13237a0a4bfc7ca14315ef3e1b47cba2cf6813748fbc1b5aaf52925caf1e91b3 SHA512 736b3d9105dd665f2c66c07633c9ea6d6181586906ba43673bc164e2e9d94a46b866720fe2cb55ebf4bc9baed1d02bd11163d12af9cf69ff7bb3cbdd7187842c diff --git a/dev-haskell/aeson/files/aeson-1.5.6.0-fix-tests-ghc_9.patch b/dev-haskell/aeson/files/aeson-1.5.6.0-fix-tests-ghc_9.patch deleted file mode 100644 index bf6f2eb92c1e..000000000000 --- a/dev-haskell/aeson/files/aeson-1.5.6.0-fix-tests-ghc_9.patch +++ /dev/null @@ -1,232 +0,0 @@ -From 083691aa10e802a1b9b57922f3d0a234cafdb90d Mon Sep 17 00:00:00 2001 -From: Oleg Grenrus -Date: Sat, 20 Feb 2021 23:15:41 +0200 -Subject: [PATCH] Add GHC-9.0.1 CI job - -Not for benchmarks yet though, cassava etc need bounds relaxed first - -We need to reorder stuff in UnitTests, GHC-9.0 is stricter about -which instances are visible. ---- - aeson.cabal | 2 +- - tests/UnitTests.hs | 144 ++++++++++---------- - -diff --git a/aeson.cabal b/aeson.cabal -index 91eacd7d..6152e509 100644 ---- a/aeson.cabal -+++ b/aeson.cabal -@@ -8,7 +8,7 @@ copyright: (c) 2011-2016 Bryan O'Sullivan - author: Bryan O'Sullivan - maintainer: Adam Bergmark - stability: experimental --tested-with: GHC == 7.8.4, GHC == 7.10.3, GHC == 8.0.2, GHC == 8.2.2, GHC == 8.4.4, GHC == 8.6.5, GHC == 8.8.3, GHC == 8.10.1 -+tested-with: GHC == 7.8.4, GHC == 7.10.3, GHC == 8.0.2, GHC == 8.2.2, GHC == 8.4.4, GHC == 8.6.5, GHC == 8.8.3, GHC == 8.10.4, GHC == 9.0.1 - synopsis: Fast JSON parsing and encoding - cabal-version: >= 1.10 - homepage: https://github.com/haskell/aeson - -diff --git a/tests/UnitTests.hs b/tests/UnitTests.hs -index a0651dda..e5c73f46 100644 ---- a/tests/UnitTests.hs -+++ b/tests/UnitTests.hs -@@ -76,59 +76,7 @@ import qualified SerializationFormatSpec - import Data.Aeson.Parser.UnescapeFFI () - import Data.Aeson.Parser.UnescapePure () - --tests :: TestTree --tests = testGroup "unit" [ -- testGroup "SerializationFormatSpec" SerializationFormatSpec.tests -- , testGroup "ErrorMessages" ErrorMessages.tests -- , testGroup "camelCase" [ -- testCase "camelTo" $ roundTripCamel "aName" -- , testCase "camelTo" $ roundTripCamel "another" -- , testCase "camelTo" $ roundTripCamel "someOtherName" -- , testCase "camelTo" $ -- assertEqual "" "camel_apicase" (camelTo '_' "CamelAPICase") -- , testCase "camelTo2" $ roundTripCamel2 "aName" -- , testCase "camelTo2" $ roundTripCamel2 "another" -- , testCase "camelTo2" $ roundTripCamel2 "someOtherName" -- , testCase "camelTo2" $ -- assertEqual "" "camel_api_case" (camelTo2 '_' "CamelAPICase") -- ] -- , testGroup "encoding" [ -- testCase "goodProducer" goodProducer -- ] -- , testGroup "utctime" [ -- testCase "good" utcTimeGood -- , testCase "bad" utcTimeBad -- ] -- , testGroup "formatError" [ -- testCase "example 1" formatErrorExample -- ] -- , testGroup ".:, .:?, .:!" $ fmap (testCase "-") dotColonMark -- , testGroup "Hashable laws" $ fmap (testCase "-") hashableLaws -- , testGroup "Object construction" $ fmap (testCase "-") objectConstruction -- , testGroup "Issue #351" $ fmap (testCase "-") issue351 -- , testGroup "Nullary constructors" $ fmap (testCase "-") nullaryConstructors -- , testGroup "FromJSONKey" $ fmap (testCase "-") fromJSONKeyAssertions -- , testCase "PR #455" pr455 -- , testCase "Unescape string (PR #477)" unescapeString -- , testCase "Show Options" showOptions -- , testGroup "SingleMaybeField" singleMaybeField -- , testCase "withEmbeddedJSON" withEmbeddedJSONTest -- , testCase "SingleFieldCon" singleFieldCon -- , testGroup "UnknownFields" unknownFields -- , testGroup "Ordering of object keys" keyOrdering -- , testCase "Ratio with denominator 0" ratioDenominator0 -- , testCase "Rational parses number" rationalNumber -- , testCase "Big rational" bigRationalDecoding -- , testCase "Small rational" smallRationalDecoding -- , testCase "Big scientific exponent" bigScientificExponent -- , testCase "Big integer decoding" bigIntegerDecoding -- , testCase "Big natural decading" bigNaturalDecoding -- , testCase "Big integer key decoding" bigIntegerKeyDecoding -- , testGroup "QQ.Simple" -- [ testCase "example" $ -- assertEqual "" (object ["foo" .= True]) [aesonQQ| {"foo": true } |] -- ] -- ] -+ - - roundTripCamel :: String -> Assertion - roundTripCamel name = assertEqual "" name (camelFrom '_' $ camelTo '_' name) -@@ -389,11 +337,7 @@ issue351 = [ - -- Comparison between bytestring and text encoders - ------------------------------------------------------------------------------ - --ioTests :: IO [TestTree] --ioTests = do -- enc <- encoderComparisonTests -- js <- jsonTestSuite -- return [enc, js] -+ - - encoderComparisonTests :: IO TestTree - encoderComparisonTests = do -@@ -427,6 +371,7 @@ encoderComparisonTests = do - - -- A regression test for: https://github.com/bos/aeson/issues/293 - data MyRecord = MyRecord {_field1 :: Maybe Int, _field2 :: Maybe Bool} -+deriveJSON defaultOptions{omitNothingFields=True} ''MyRecord - - data MyRecord2 = MyRecord2 {_field3 :: Maybe Int, _field4 :: Maybe Bool} - deriving Generic -@@ -522,6 +467,8 @@ _blacklist = HashSet.fromList [ - - -- A regression test for: https://github.com/bos/aeson/pull/455 - data Foo a = FooNil | FooCons (Foo Int) -+deriveToJSON defaultOptions ''Foo -+deriveToJSON1 defaultOptions ''Foo - - pr455 :: Assertion - pr455 = assertEqual "FooCons FooNil" -@@ -548,6 +495,7 @@ showOptions = - - newtype SingleMaybeField = SingleMaybeField { smf :: Maybe Int } - deriving (Eq, Show, Generic) -+deriveJSON defaultOptions{omitNothingFields=True,unwrapUnaryRecords=True} ''SingleMaybeField - - singleMaybeField :: [TestTree] - singleMaybeField = do -@@ -589,14 +537,21 @@ singleFieldCon = - - newtype UnknownFields = UnknownFields { knownField :: Int } - deriving (Eq, Show, Generic) -+deriveJSON defaultOptions{rejectUnknownFields=True} ''UnknownFields -+ - newtype UnknownFieldsTag = UnknownFieldsTag { tag :: Int } - deriving (Eq, Show, Generic) -+deriveJSON defaultOptions{rejectUnknownFields=True} ''UnknownFieldsTag -+ - newtype UnknownFieldsUnaryTagged = UnknownFieldsUnaryTagged { knownFieldUnaryTagged :: Int } - deriving (Eq, Show, Generic) -+deriveJSON defaultOptions{tagSingleConstructors=True,rejectUnknownFields=True} ''UnknownFieldsUnaryTagged -+ - data UnknownFieldsSum - = UnknownFields1 { knownField1 :: Int } - | UnknownFields2 { knownField2 :: Int } - deriving (Eq, Show, Generic) -+deriveJSON defaultOptions{rejectUnknownFields=True} ''UnknownFieldsSum - - unknownFields :: [TestTree] - unknownFields = concat -@@ -753,17 +708,68 @@ bigNaturalKeyDecoding = - type family Fam757 :: * -> * - type instance Fam757 = Maybe - newtype Newtype757 a = MkNewtype757 (Fam757 a) -+deriveToJSON1 defaultOptions ''Newtype757 - --deriveJSON defaultOptions{omitNothingFields=True} ''MyRecord -- --deriveToJSON defaultOptions ''Foo --deriveToJSON1 defaultOptions ''Foo -- --deriveJSON defaultOptions{omitNothingFields=True,unwrapUnaryRecords=True} ''SingleMaybeField -+------------------------------------------------------------------------------- -+-- Tests trees -+------------------------------------------------------------------------------- - --deriveJSON defaultOptions{rejectUnknownFields=True} ''UnknownFields --deriveJSON defaultOptions{rejectUnknownFields=True} ''UnknownFieldsTag --deriveJSON defaultOptions{tagSingleConstructors=True,rejectUnknownFields=True} ''UnknownFieldsUnaryTagged --deriveJSON defaultOptions{rejectUnknownFields=True} ''UnknownFieldsSum -+ioTests :: IO [TestTree] -+ioTests = do -+ enc <- encoderComparisonTests -+ js <- jsonTestSuite -+ return [enc, js] - --deriveToJSON1 defaultOptions ''Newtype757 -+tests :: TestTree -+tests = testGroup "unit" [ -+ testGroup "SerializationFormatSpec" SerializationFormatSpec.tests -+ , testGroup "ErrorMessages" ErrorMessages.tests -+ , testGroup "camelCase" [ -+ testCase "camelTo" $ roundTripCamel "aName" -+ , testCase "camelTo" $ roundTripCamel "another" -+ , testCase "camelTo" $ roundTripCamel "someOtherName" -+ , testCase "camelTo" $ -+ assertEqual "" "camel_apicase" (camelTo '_' "CamelAPICase") -+ , testCase "camelTo2" $ roundTripCamel2 "aName" -+ , testCase "camelTo2" $ roundTripCamel2 "another" -+ , testCase "camelTo2" $ roundTripCamel2 "someOtherName" -+ , testCase "camelTo2" $ -+ assertEqual "" "camel_api_case" (camelTo2 '_' "CamelAPICase") -+ ] -+ , testGroup "encoding" [ -+ testCase "goodProducer" goodProducer -+ ] -+ , testGroup "utctime" [ -+ testCase "good" utcTimeGood -+ , testCase "bad" utcTimeBad -+ ] -+ , testGroup "formatError" [ -+ testCase "example 1" formatErrorExample -+ ] -+ , testGroup ".:, .:?, .:!" $ fmap (testCase "-") dotColonMark -+ , testGroup "Hashable laws" $ fmap (testCase "-") hashableLaws -+ , testGroup "Object construction" $ fmap (testCase "-") objectConstruction -+ , testGroup "Issue #351" $ fmap (testCase "-") issue351 -+ , testGroup "Nullary constructors" $ fmap (testCase "-") nullaryConstructors -+ , testGroup "FromJSONKey" $ fmap (testCase "-") fromJSONKeyAssertions -+ , testCase "PR #455" pr455 -+ , testCase "Unescape string (PR #477)" unescapeString -+ , testCase "Show Options" showOptions -+ , testGroup "SingleMaybeField" singleMaybeField -+ , testCase "withEmbeddedJSON" withEmbeddedJSONTest -+ , testCase "SingleFieldCon" singleFieldCon -+ , testGroup "UnknownFields" unknownFields -+ , testGroup "Ordering of object keys" keyOrdering -+ , testCase "Ratio with denominator 0" ratioDenominator0 -+ , testCase "Rational parses number" rationalNumber -+ , testCase "Big rational" bigRationalDecoding -+ , testCase "Small rational" smallRationalDecoding -+ , testCase "Big scientific exponent" bigScientificExponent -+ , testCase "Big integer decoding" bigIntegerDecoding -+ , testCase "Big natural decading" bigNaturalDecoding -+ , testCase "Big integer key decoding" bigIntegerKeyDecoding -+ , testGroup "QQ.Simple" -+ [ testCase "example" $ -+ assertEqual "" (object ["foo" .= True]) [aesonQQ| {"foo": true } |] -+ ] -+ ] -- cgit v1.2.3