Revision e09c1fa0 htest/Test/Ganeti/HTools/Container.hs
| b/htest/Test/Ganeti/HTools/Container.hs | ||
|---|---|---|
| 26 | 26 |
|
| 27 | 27 |
-} |
| 28 | 28 |
|
| 29 |
module Test.Ganeti.HTools.Container (testContainer) where |
|
| 29 |
module Test.Ganeti.HTools.Container (testHTools_Container) where
|
|
| 30 | 30 |
|
| 31 | 31 |
import Test.QuickCheck |
| 32 | 32 |
|
| ... | ... | |
| 79 | 79 |
printTestCase "Found non-existing name" |
| 80 | 80 |
(isNothing (Container.findByName nl' othername)) |
| 81 | 81 |
|
| 82 |
testSuite "Container" |
|
| 82 |
testSuite "HTools/Container"
|
|
| 83 | 83 |
[ 'prop_addTwo |
| 84 | 84 |
, 'prop_nameOf |
| 85 | 85 |
, 'prop_findByName |
Also available in: Unified diff