Commit a4c9375d authored by bos's avatar bos
Browse files

Make the Arbitrary instance for Text generate full Unicode

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!
parent e825889d
......@@ -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
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment