code.grnet.gr Git - ganeti-local/blob - test.hs

   1 {-| Unittest runner for htools
   2
   3 -}
   4
   5 module Main(main) where
   6
   7 import Test.QuickCheck.Batch
   8 import Ganeti.HTools.QC
   9
  10 options = TestOptions
  11       { no_of_tests         = 500
  12       , length_of_tests     = 5
  13       , debug_tests         = False }
  14
  15 main = do
  16   runTests "PeerMap" options test_PeerMap
  17   runTests "Container" options test_Container
  18   runTests "Instance" options test_Instance
  19   runTests "Node" options test_Node