Revision 2fe1e043 test/hs/Test/Ganeti/Types.hs

b/test/hs/Test/Ganeti/Types.hs
37 37 
  , JobId(..)
38 38 
  ) where
39 39 

  		





  40
  
  
    
import Data.List (delete, sort)


  		





  
  40
  
    
import Data.List (sort)


  		





  41
  41
  
    
import Test.QuickCheck as QuickCheck hiding (Result)


  		





  42
  42
  
    
import Test.HUnit


  		





  43
  43
  
    
import qualified Text.JSON as J


  		





  ......




  81
  81
  
    

  		





  82
  82
  
    
-- | Valid disk templates (depending on configure options).


  		





  83
  83
  
    
allDiskTemplates :: [DiskTemplate]


  		





  84
  
  
    
allDiskTemplates =


  		





  85
  
  
    
  let all_vals = [minBound..maxBound]::[DiskTemplate]


  		





  86
  
  
    
      sel1 = if C.enableSharedFileStorage


  		





  87
  
  
    
               then all_vals


  		





  88
  
  
    
               else delete DTSharedFile all_vals


  		





  89
  
  
    
  in sel1


  		





  
  84
  
    
allDiskTemplates = [minBound..maxBound]::[DiskTemplate]


  		





  90
  85
  
    

  		





  91
  86
  
    
-- | Custom 'Arbitrary' instance for 'DiskTemplate', which needs to


  		





  92
  87
  
    
-- handle the case of file storage being disabled at configure time.


  		












Also available in:
  Unified diff