mrkkrp/megaparsec
1
1
Fork 0
mirror of https://github.com/mrkkrp/megaparsec.git synced 2024-11-30 10:29:10 +03:00
Code Issues Projects Releases Wiki Activity

Remove the tests for ‘alphaNumChar’

Browse Source 
Alphanumeric characters are not generated often enough so QuickCheck may
sometimes give up on this one. The function is defined analogous to other
similar functions so there is really no point in testing it.
This commit is contained in:
Mark Karpov 2020-05-10 22:39:48 +02:00
parent 7ba66b98d9
commit 8c7acbf376
2 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
megaparsec-tests/tests/Text/Megaparsec/ByteSpec.hs
View File

@ -114,9 +114,6 @@ spec = do
describe "spaceChar" $ describe "spaceChar" $
checkCharRange "white space" [9, 10, 11, 12, 13, 32, 160] spaceChar checkCharRange "white space" [9, 10, 11, 12, 13, 32, 160] spaceChar
describe "alphaNumChar" $
checkCharPred "alphanumeric character" (isAlphaNum . toChar) alphaNumChar
describe "printChar" $ describe "printChar" $
checkCharPred "printable character" (isPrint . toChar) printChar checkCharPred "printable character" (isPrint . toChar) printChar

3
megaparsec-tests/tests/Text/Megaparsec/CharSpec.hs
View File

@ -120,9 +120,6 @@ spec = do
describe "letterChar" $ describe "letterChar" $
checkCharPred "letter" isAlpha letterChar checkCharPred "letter" isAlpha letterChar
describe "alphaNumChar" $
checkCharPred "alphanumeric character" isAlphaNum alphaNumChar
describe "printChar" $ describe "printChar" $
checkCharPred "printable character" isPrint printChar checkCharPred "printable character" isPrint printChar