← Back to branch summary

~ubuntu-branches/ubuntu/precise/ghc/precise

« back to all changes in this revision

Viewing changes to libraries/bytestring/tests/Rules.hs

  • Committer: Bazaar Package Importer
  • Author(s): Joachim Breitner
  • Date: 2011-01-17 12:49:24 UTC
  • Revision ID: james.westby@ubuntu.com-20110117124924-do1pym1jlf5o636m
Tags: upstream-7.0.1
Import upstream version 7.0.1

Show diffs side-by-side

added added

removed removed

Lines of Context:
libraries/bytestring/tests/Rules.hs
 
1
module Rules where
 
2
--
 
3
-- Tests to ensure rules are firing.
 
4
--
 
5
 
 
6
import qualified Data.ByteString.Char8       as C
 
7
import qualified Data.ByteString             as P
 
8
import qualified Data.ByteString.Lazy        as L
 
9
import qualified Data.ByteString.Lazy.Char8  as D
 
10
import Data.List
 
11
import Data.Char
 
12
import QuickCheckUtils
 
13
 
 
14
 
 
15
prop_break_C x = C.break ((==) x) `eq1` break ((==) x)
 
16
prop_break_P x = P.break ((==) x) `eq1` break ((==) x)
 
17
prop_intercalate_P c = (\s1 s2 -> P.intercalate (P.singleton c) (s1 : s2 : []))
 
18
                        `eq2`
 
19
                       (\s1 s2 -> intercalate [c] (s1 : s2 : []))
 
20
 
 
21
prop_break_isSpace_C = C.break isSpace `eq1` break isSpace
 
22
prop_dropWhile_isSpace_C = C.dropWhile isSpace `eq1` dropWhile isSpace
 
23
 
 
24
rules =
 
25
    [("break (==)" ,         mytest prop_break_C)
 
26
    ,("break (==)" ,         mytest prop_break_P)
 
27
    ,("break isSpace" ,      mytest prop_break_isSpace_C)
 
28
 
 
29
    ,("dropWhile isSpace" ,  mytest prop_dropWhile_isSpace_C)
 
30
 
 
31
    ,("intercalate      " ,  mytest prop_intercalate_P)
 
32
    ]