Revision 74b3f734 test/hs/Test/Ganeti/Query/Instance.hs

b/test/hs/Test/Ganeti/Query/Instance.hs
32 32 

  		





  33
  33
  
    
import qualified Data.Map as Map


  		





  34
  34
  
    
import qualified Data.Set as Set


  		





  
  35
  
    
import System.Time (ClockTime(..))


  		





  35
  36
  
    

  		





  36
  37
  
    
import Ganeti.JSON


  		





  37
  38
  
    
import Ganeti.Objects


  		





  ......




  52
  53
  
    
    (GenericContainer Map.empty)


  		





  53
  54
  
    
    (PartialBeParams Nothing Nothing Nothing Nothing Nothing Nothing)


  		





  54
  55
  
    
    (GenericContainer Map.empty)


  		





  55
  
  
    
    adminState [] [] DTDrbd8 False Nothing 0.0 0.0 "" 0 Set.empty


  		





  
  56
  
    
    adminState [] [] DTDrbd8 False Nothing epochTime epochTime "" 0 Set.empty


  		





  
  57
  
    
  where epochTime = TOD 0 0


  		





  56
  58
  
    

  		





  57
  59
  
    
-- | A fake InstanceInfo to be used to check values.


  		





  58
  60
  
    
fakeInstanceInfo :: InstanceInfo


  		












Also available in:
  Unified diff