Fix problem with test suite in non-unicode locale.
This commit is contained in:
parent
960052bc36
commit
e4d0b2f180
2 changed files with 7 additions and 1 deletions
|
@ -81,7 +81,7 @@ file2key s = if key == Just stubKey then Nothing else key
|
|||
|
||||
instance Arbitrary Key where
|
||||
arbitrary = Key
|
||||
<$> arbitrary
|
||||
<$> (listOf1 $ elements $ ['A'..'Z'] ++ ['a'..'z'] ++ ['0'..'9'] ++ "\r\n \t")
|
||||
<*> (listOf1 $ elements ['A'..'Z']) -- BACKEND
|
||||
<*> ((abs <$>) <$> arbitrary) -- size cannot be negative
|
||||
<*> arbitrary
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue