Make the Arbitrary instance for Text generate full Unicode
authorBryan O'Sullivan <bos@serpentine.com>
Sun, 21 May 2017 05:11:25 +0000 (22:11 -0700)
committerBryan O'Sullivan <bos@serpentine.com>
Sun, 21 May 2017 05:11:25 +0000 (22:11 -0700)
Flipping this revealed one genuine codebase bug, but gh-176 may be
related.  And as a bonus, this also revealed two testsuite bugs.
That's an impressive haul!

tests/Tests/QuickCheckUtils.hs

index 6333271..851b658 100644 (file)
@@ -106,7 +106,7 @@ smallArbitrary = sized $ \n -> resize (smallish n) arbitrary
   where smallish = round . (sqrt :: Double -> Double) . fromIntegral . abs
 
 instance Arbitrary T.Text where
-    arbitrary = T.pack `fmap` arbitrary
+    arbitrary = T.pack `fmap` string
     shrink = map T.pack . shrink . T.unpack
 
 instance Arbitrary TL.Text where