Revision aa4a4b76 test/hs/Test/Ganeti/Luxi.hs

b/test/hs/Test/Ganeti/Luxi.hs
96 96 
-- | Simple check that encoding/decoding of LuxiOp works.
97 97 
prop_CallEncoding :: Luxi.LuxiOp -> Property
98 98 
prop_CallEncoding op =
99 
  (US.parseCall (Luxi.buildCall op) >>= uncurry Luxi.decodeLuxiCall) ==? Ok op
99 
  (US.parseCall (US.buildCall (Luxi.strOfOp op) (Luxi.opToArgs op))
100 
    >>= uncurry Luxi.decodeLuxiCall) ==? Ok op
100 101 

  		





  101
  102
  
    
-- | Server ping-pong helper.


  		





  102
  103
  
    
luxiServerPong :: Luxi.Client -> IO ()


  		












Also available in:
  Unified diff