f4243f4 · typeable/bloodhound

1146

1147 it "returns stats aggregation results" $ withTestEnv $ do

1148 _ <- insertData

1149− let stats = StatsAgg $ mkStatsAggregation $ FieldName "user"

1149+ let stats = StatsAgg $ mkStatsAggregation $ FieldName "age"

1150 let search = mkAggregateSearch Nothing $ mkAggregations "users" stats

1151 let search' = search { Database.V5.Bloodhound.from = From 0, size = Size 0 }

1152 searchExpectAggs search'

1153− let docCountPair k n = (k, object ["value" .= Number n])

1153+ let statsAggRes k n = (k, object [ "max" .= Number n

1154+ , "avg" .= Number n

1155+ , "count" .= Number 1

1156+ , "min" .= Number n

1157+ , "sum" .= Number n])

1154 res <- searchTweets search'

1158 res <- searchTweets search'

1155 liftIO $

1159 liftIO $

1156− fmap aggregations res `shouldBe` Right (Just (M.fromList [ docCountPair "users" 1]))

1160+ fmap aggregations res `shouldBe` Right (Just (M.fromList [ statsAggRes "users" 10000]))

1157

1161

1158 it "can give collection hint parameters to term aggregations" $ when' (atleast es13) $ withTestEnv $ do

1162 it "can give collection hint parameters to term aggregations" $ when' (atleast es13) $ withTestEnv $ do

1159 _ <- insertData

1163 _ <- insertData