@@ -1146,14 +1146,18 @@ main = hspec $ do
11461146
11471147 it "returns stats aggregation results" $ withTestEnv $ do
11481148 _ <- insertData
1149− let stats = StatsAgg $ mkStatsAggregation $ FieldName "user"
1149+ let stats = StatsAgg $ mkStatsAggregation $ FieldName "age"
11501150 let search = mkAggregateSearch Nothing $ mkAggregations "users" stats
11511151 let search' = search { Database.V5.Bloodhound.from = From 0, size = Size 0 }
11521152 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])
11541158 res <- searchTweets search'
11551159 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]))
11571161
11581162 it "can give collection hint parameters to term aggregations" $ when' (atleast es13) $ withTestEnv $ do
11591163 _ <- insertData