Revision 20bc5360 htest/Test/Ganeti/Objects.hs

b/htest/Test/Ganeti/Objects.hs
55 55 
              <*> (Set.fromList <$> genTags)
56 56 

  		





  57
  57
  
    
-- | Tests that fillDict behaves correctly


  		





  58
  
  
    
prop_Objects_fillDict :: [(Int, Int)] -> [(Int, Int)] -> Property


  		





  59
  
  
    
prop_Objects_fillDict defaults custom =


  		





  
  58
  
    
prop_fillDict :: [(Int, Int)] -> [(Int, Int)] -> Property


  		





  
  59
  
    
prop_fillDict defaults custom =


  		





  60
  60
  
    
  let d_map = Map.fromList defaults


  		





  61
  61
  
    
      d_keys = map fst defaults


  		





  62
  62
  
    
      c_map = Map.fromList custom


  		





  ......




  69
  69
  
    
      (Objects.fillDict d_map c_map (d_keys++c_keys) == Map.empty)


  		





  70
  70
  
    

  		





  71
  71
  
    
testSuite "Objects"


  		





  72
  
  
    
  [ 'prop_Objects_fillDict


  		





  
  72
  
    
  [ 'prop_fillDict


  		





  73
  73
  
    
  ]


  		












Also available in:
  Unified diff