4784419 · text · git.iko.soy

Fix the easier of the QuickCheck 2.7 breakages :-(

commit47844197b09efe9b36f3d89855c0dc05079046b3 authorBryan O'Sullivan <bos@serpentine.com> dateSun 27 Apr 2014, 21:28 (12 years ago) parent5f913b6

2 files changed+2−4

unifiedsplit

tests/Tests/Properties.hs+1−3

@@ -94,9 +94,7 @@ tl_utf32LE = forAll genUnicode $ (EL.decodeUtf32LE . EL.encodeUtf32LE) `eq` id

9494t_utf32BE = forAll genUnicode $ (E.decodeUtf32BE . E.encodeUtf32BE) `eq` id

9595tl_utf32BE = forAll genUnicode $ (EL.decodeUtf32BE . EL.encodeUtf32BE) `eq` id

9696

97−t_utf8_incr = do

98− Positive n <- arbitrary

99− forAll genUnicode $ recode n `eq` id

97+t_utf8_incr = forAll genUnicode $ \s (Positive n) -> (recode n `eq` id) s

10098 where recode n = T.concat . map fst . feedChunksOf n E.streamDecodeUtf8 .

10199 E.encodeUtf8

102100

tests/Tests/QuickCheckUtils.hs+1−1

@@ -47,7 +47,7 @@ import Data.Text.Foreign (I16)

4747import Data.Word (Word8, Word16)

4848import Debug.Trace (trace)

4949import System.Random (Random (..), RandomGen)

50−import Test.QuickCheck hiding ((.&.))

50+import Test.QuickCheck hiding (Small (..), (.&.))

5151import Test.QuickCheck.Monadic (assert, monadicIO, run)

5252import Tests.Utils

5353import qualified Data.ByteString as B