Revision ef947a42 test/hs/Test/Ganeti/HTools/Backend/Text.hs

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

  		





  37
  38
  
    
import Test.Ganeti.TestHelper


  		





  38
  39
  
    
import Test.Ganeti.TestCommon


  		





  ......




  191
  192
  
    
         let cdata = Loader.ClusterData defGroupList nl' il' ctags


  		





  192
  193
  
    
                     Types.defIPolicy


  		





  193
  194
  
    
             saved = Text.serializeCluster cdata


  		





  194
  
  
    
         in case Text.parseData saved >>= Loader.mergeData [] [] [] [] of


  		





  
  195
  
    
         in case Text.parseData saved >>= Loader.mergeData [] [] [] [] (TOD 0 0)


  		





  
  196
  
    
            of


  		





  195
  197
  
    
              Bad msg -> failTest $ "Failed to load/merge: " ++ msg


  		





  196
  198
  
    
              Ok (Loader.ClusterData gl2 nl2 il2 ctags2 cpol2) ->


  		





  197
  199
  
    
                conjoin [ ctags ==? ctags2


  		












Also available in:
  Unified diff