Revision 2e0bb81d htest/Test/Ganeti/JSON.hs

b/htest/Test/Ganeti/JSON.hs
50 50 
  -- poor man's instance Arbitrary JSValue
51 51 
  forAll (elements [J.showJSON i, J.showJSON s, J.showJSON b]) $ \item ->
52 52 
  case JSON.toArray item of
53 
    BasicTypes.Bad _ -> property True
53 
    BasicTypes.Bad _ -> passTest
54 54 
    BasicTypes.Ok result -> failTest $ "Unexpected parse, got " ++ show result
55 55 

  		





  56
  56
  
    
testSuite "JSON"


  		












Also available in:
  Unified diff