Revision 5b11f8db htest/Test/Ganeti/Query/Language.hs

b/htest/Test/Ganeti/Query/Language.hs
65 65 
    where value = oneof [ QuotedString <$> getName
66 66 
                        , NumericValue <$> arbitrary
67 67 
                        ]
68 
genFilter' n = do
68 
genFilter' n =
69 69 
  oneof [ AndFilter  <$> vectorOf n'' (genFilter' n')
70 70 
        , OrFilter   <$> vectorOf n'' (genFilter' n')
71 71 
        , NotFilter  <$> genFilter' n'
......
92 92 
-- recursive ones, and not 'JSNull', which we can't use in a
93 93 
-- 'RSNormal' 'ResultEntry'.
94 94 
genJSValue :: Gen JSValue
95 
genJSValue = do
95 
genJSValue =
96 96 
  oneof [ JSBool <$> arbitrary
97 97 
        , JSRational <$> pure False <*> arbitrary
98 98 
        , JSString <$> (toJSString <$> arbitrary)

Also available in: Unified diff