Revision 3cbd5808 test/hs/Test/Ganeti/HTools/Types.hs
| b/test/hs/Test/Ganeti/HTools/Types.hs | ||
|---|---|---|
| 7 | 7 |
|
| 8 | 8 |
{-
|
| 9 | 9 |
|
| 10 |
Copyright (C) 2009, 2010, 2011, 2012 Google Inc. |
|
| 10 |
Copyright (C) 2009, 2010, 2011, 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 |
| ... | ... | |
| 46 | 46 |
import Test.Ganeti.TestHelper |
| 47 | 47 |
import Test.Ganeti.TestCommon |
| 48 | 48 |
import Test.Ganeti.TestHTools |
| 49 |
import Test.Ganeti.Types () |
|
| 49 |
import Test.Ganeti.Types (allDiskTemplates)
|
|
| 50 | 50 |
|
| 51 | 51 |
import Ganeti.BasicTypes |
| 52 | 52 |
import qualified Ganeti.Constants as C |
| ... | ... | |
| 56 | 56 |
|
| 57 | 57 |
-- * Helpers |
| 58 | 58 |
|
| 59 |
-- | All disk templates (used later) |
|
| 60 |
allDiskTemplates :: [Types.DiskTemplate] |
|
| 61 |
allDiskTemplates = [minBound..maxBound] |
|
| 62 |
|
|
| 63 | 59 |
-- * Arbitrary instance |
| 64 | 60 |
|
| 65 | 61 |
$(genArbitrary ''Types.FailMode) |
Also available in: Unified diff