Revision 942a9a6a htest/Test/Ganeti/HTools/Container.hs

b/htest/Test/Ganeti/HTools/Container.hs
74 74 
               $ zip names nodes
75 75 
      nl' = Container.fromList nodes'
76 76 
      target = snd (nodes' !! fidx)
77 
  in Container.findByName nl' (Node.name target) ==? Just target .&&.
78 
     Container.findByName nl' (Node.alias target) ==? Just target .&&.
79 
     printTestCase "Found non-existing name"
80 
       (isNothing (Container.findByName nl' othername))
77 
  in conjoin
78 
       [ Container.findByName nl' (Node.name target) ==? Just target
79 
       , Container.findByName nl' (Node.alias target) ==? Just target
80 
       , printTestCase "Found non-existing name"
81 
         (isNothing (Container.findByName nl' othername))
82 
       ]
81 83 

  		





  82
  84
  
    
testSuite "HTools/Container"


  		





  83
  85
  
    
            [ 'prop_addTwo


  		












Also available in:
  Unified diff