~ubuntu-branches/ubuntu/trusty/haskell-text/trusty

« back to all changes in this revision

Viewing changes to tests/Tests/Regressions.hs

Committer: Package Import Robot
Author(s): Joachim Breitner
Date: 2013-05-27 15:29:56 UTC
mfrom: (4.2.2 sid)
Revision ID: package-import@ubuntu.com-20130527152956-2mj3ud1ahuv386b1

Tags: 0.11.3.1-1

New upstream release

files added:
Data/Text/Lazy/Builder/Int

Data/Text/Lazy/Builder/Int/Digits.hs

Data/Text/Lazy/Builder/Internal.hs

files modified:
Data/Text.hs

Data/Text/Array.hs

Data/Text/Encoding.hs

Data/Text/Encoding/Error.hs

Data/Text/Encoding/Fusion.hs

Data/Text/Encoding/Fusion/Common.hs

Data/Text/Fusion/Common.hs

Data/Text/Fusion/Size.hs

Data/Text/IO.hs

Data/Text/Internal.hs

Data/Text/Lazy.hs

Data/Text/Lazy/Builder.hs

Data/Text/Lazy/Builder/Int.hs

Data/Text/Lazy/Encoding.hs

Data/Text/Lazy/Encoding/Fusion.hs

Data/Text/Lazy/Fusion.hs

Data/Text/Lazy/IO.hs

Data/Text/Lazy/Read.hs

Data/Text/Read.hs

Data/Text/Search.hs

Data/Text/Unsafe.hs

benchmarks/haskell/Benchmarks.hs

benchmarks/haskell/Benchmarks/Builder.hs

benchmarks/haskell/Benchmarks/DecodeUtf8.hs

benchmarks/haskell/Benchmarks/Pure.hs

benchmarks/haskell/Benchmarks/Stream.hs

benchmarks/text-benchmarks.cabal

cbits/cbits.c

debian/changelog

debian/compat

debian/control

tests/Tests/Properties.hs

tests/Tests/Regressions.hs

tests/text-tests.cabal

text.cabal

Show diffs side-by-side

added added

removed removed

tests/Tests/Regressions.hs

import Control.Exception (SomeException, handle)

import System.IO

import Test.HUnit (assertFailure)

import Test.HUnit (assertBool, assertFailure)

import qualified Data.ByteString as B

import Data.ByteString.Char8 ()

import qualified Data.ByteString.Lazy as LB

import qualified Data.Text as T

import qualified Data.Text.Encoding as TE

import qualified Data.Text.IO as T

import qualified Data.Text.Lazy as LT

import qualified Data.Text.Lazy.Encoding as LE

power | maxBound == (2147483647::Int) = 28

| otherwise = 60 :: Int

-- Reported by John Millikin: a UTF-8 decode error handler could

-- return a bogus substitution character, which we would write without

-- checking.

utf8_decode_unsafe :: IO ()

utf8_decode_unsafe = do

let t = TE.decodeUtf8With (\_ _ -> Just '\xdc00') "\x80"

assertBool "broken error recovery shouldn't break us" (t == "\xfffd")

tests :: F.Test

tests = F.testGroup "Regressions"

[ F.testCase "hGetContents_crash" hGetContents_crash

, F.testCase "lazy_encode_crash" lazy_encode_crash

, F.testCase "replicate_crash" replicate_crash

, F.testCase "utf8_decode_unsafe" utf8_decode_unsafe

]

Older »