1. Bryan O'Sullivan
  2. text

Commits

Bryan O'Sullivan  committed f912dd1 Merge

Merge from 1.0 branch

  • Participants
  • Parent commits 8e5e7df, 96dccbe
  • Branches default

Comments (0)

Files changed (3)

File Data/Text/Internal/Encoding/Utf8.hs

View file
     , validate4
     ) where
 
+#if defined(TEST_SUITE)
+# undef ASSERTS
+#endif
+
 #if defined(ASSERTS)
 import Control.Exception (assert)
 #endif

File tests/Tests/QuickCheckUtils.hs

View file
 instance Arbitrary B.ByteString where
     arbitrary     = B.pack `fmap` arbitrary
 
+#if !MIN_VERSION_base(4,4,0)
+instance Random Word8 where
+    randomR = integralRandomR
+    random  = randomR (minBound,maxBound)
+#endif
+
 genUnicode :: IsString a => Gen a
 genUnicode = fmap fromString string where
     string = sized $ \n ->

File tests/text-tests.cabal

View file
       -fhpc
 
   cpp-options:
+    -DTEST_SUITE
     -DASSERTS
     -DHAVE_DEEPSEQ
 
       -fhpc
 
   cpp-options:
+    -DTEST_SUITE
     -DHAVE_DEEPSEQ
     -DASSERTS
     -DINTEGER_GMP