Commits

solirc committed 585c145

Add failing test case for stringCI

Comments (0)

Files changed (1)

 string s t = maybeP (P.string s') (s `L.append` t) == Just s'
   where s' = toStrict s
 
+stringCI s = P.parseOnly (P.stringCI fs) s == Right s
+  where fs = T.toCaseFold s
+
 toStrict = T.concat . L.toChunks
 
 skipWhile w s =
     testProperty "notChar" notChar,
     testProperty "anyChar" anyChar,
     testProperty "string" string,
+    testProperty "stringCI" stringCI,
     testProperty "skipWhile" skipWhile,
     testProperty "takeCount" takeCount,
     testProperty "takeWhile" takeWhile,