Revision b6aeda4a test/hs/Test/Ganeti/Utils.hs
b/test/hs/Test/Ganeti/Utils.hs | ||
---|---|---|
33 | 33 |
|
34 | 34 |
import Data.Char (isSpace) |
35 | 35 |
import Data.List |
36 |
import System.Time |
|
36 | 37 |
import qualified Text.JSON as J |
37 | 38 |
#ifndef NO_REGEX_PCRE |
38 | 39 |
import Text.Regex.PCRE |
... | ... | |
233 | 234 |
assertBool "newUUID" $ uuid =~ C.uuidRegex |
234 | 235 |
#endif |
235 | 236 |
|
237 |
prop_clockTimeToString :: Integer -> Integer -> Property |
|
238 |
prop_clockTimeToString ts pico = |
|
239 |
clockTimeToString (TOD ts pico) ==? show ts |
|
240 |
|
|
236 | 241 |
-- | Test list for the Utils module. |
237 | 242 |
testSuite "Utils" |
238 | 243 |
[ 'prop_commaJoinSplit |
... | ... | |
252 | 257 |
#ifndef NO_REGEX_PCRE |
253 | 258 |
, 'case_new_uuid |
254 | 259 |
#endif |
260 |
, 'prop_clockTimeToString |
|
255 | 261 |
] |
Also available in: Unified diff