Revision f8f638fe test/hs/Test/Ganeti/TestCommon.hs
b/test/hs/Test/Ganeti/TestCommon.hs | ||
---|---|---|
60 | 60 |
, readTestData |
61 | 61 |
, genSample |
62 | 62 |
, testParser |
63 |
, genNonNegative |
|
63 | 64 |
) where |
64 | 65 |
|
65 | 66 |
import Control.Applicative |
... | ... | |
351 | 352 |
case parseOnly parser $ pack fileContent of |
352 | 353 |
Left msg -> HUnit.assertFailure $ "Parsing failed: " ++ msg |
353 | 354 |
Right obtained -> HUnit.assertEqual fileName expectedContent obtained |
355 |
|
|
356 |
-- | Generate an arbitrary non negative integer number |
|
357 |
genNonNegative :: Gen Int |
|
358 |
genNonNegative = |
|
359 |
fmap fromIntegral (arbitrary::Gen (Test.QuickCheck.NonNegative Int)) |
Also available in: Unified diff