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