test.hs 420 Bytes
Newer Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
{-| Unittest runner for htools

-}

module Main(main) where

import Test.QuickCheck.Batch
import Ganeti.HTools.QC

options = TestOptions
      { no_of_tests         = 500
      , length_of_tests     = 5
      , debug_tests         = False }

main = do
16
17
18
19
  runTests "PeerMap" options test_PeerMap
  runTests "Container" options test_Container
  runTests "Instance" options test_Instance
  runTests "Node" options test_Node