Revision 37fe56e0 test/hs/Test/Ganeti/Types.hs
b/test/hs/Test/Ganeti/Types.hs | ||
---|---|---|
7 | 7 |
|
8 | 8 |
{- |
9 | 9 |
|
10 |
Copyright (C) 2012 Google Inc. |
|
10 |
Copyright (C) 2012, 2013 Google Inc.
|
|
11 | 11 |
|
12 | 12 |
This program is free software; you can redistribute it and/or modify |
13 | 13 |
it under the terms of the GNU General Public License as published by |
... | ... | |
370 | 370 |
prop_OpSubmitPriority_serialisation :: OpSubmitPriority -> Property |
371 | 371 |
prop_OpSubmitPriority_serialisation = testSerialisation |
372 | 372 |
|
373 |
-- | Tests string formatting for 'OpSubmitPriority'. |
|
374 |
prop_OpSubmitPriority_string :: OpSubmitPriority -> Property |
|
375 |
prop_OpSubmitPriority_string prio = |
|
376 |
parseSubmitPriority (fmtSubmitPriority prio) ==? Just prio |
|
377 |
|
|
373 | 378 |
-- | Test 'ELogType' serialisation. |
374 | 379 |
prop_ELogType_serialisation :: ELogType -> Property |
375 | 380 |
prop_ELogType_serialisation = testSerialisation |
... | ... | |
416 | 421 |
, 'case_JobId_BadTypes |
417 | 422 |
, 'prop_JobDependency_serialisation |
418 | 423 |
, 'prop_OpSubmitPriority_serialisation |
424 |
, 'prop_OpSubmitPriority_string |
|
419 | 425 |
, 'prop_ELogType_serialisation |
420 | 426 |
] |
Also available in: Unified diff