Revision ef947a42 test/hs/Test/Ganeti/HTools/Loader.hs

b/test/hs/Test/Ganeti/HTools/Loader.hs
33 33 
import qualified Data.IntMap as IntMap
34 34 
import qualified Data.Map as Map
35 35 
import Data.List
36 
import System.Time (ClockTime(..))
36 37 

  		





  37
  38
  
    
import Test.Ganeti.TestHelper


  		





  38
  39
  
    
import Test.Ganeti.TestCommon


  		





  ......




  71
  72
  
    
prop_mergeData :: [Node.Node] -> Bool


  		





  72
  73
  
    
prop_mergeData ns =


  		





  73
  74
  
    
  let na = Container.fromList $ map (\n -> (Node.idx n, n)) ns


  		





  74
  
  
    
  in case Loader.mergeData [] [] [] []


  		





  
  75
  
    
  in case Loader.mergeData [] [] [] [] (TOD 0 0)


  		





  75
  76
  
    
         (Loader.emptyCluster {Loader.cdNodes = na}) of


  		





  76
  77
  
    
    BasicTypes.Bad _ -> False


  		





  77
  78
  
    
    BasicTypes.Ok (Loader.ClusterData _ nl il _ _) ->


  		












Also available in:
  Unified diff