79d4eda · typeable/bloodhound

git.iko.soy/typeable/bloodhound

failing sub-aggs test

commit79d4eda49fce0015951e3018d94c2f556bf1423e authorJosh Berman <berman.josh@gmail.com> dateThu 12 Jan 2017, 21:52 (10 years ago) parentfc6e1cc

2 files changed+22

unifiedsplit

tests/V1/tests.hs+11

@@ -1306,6 +1306,17 @@ main = hspec $ do

13061306 searchExpectAggs search

13071307 searchValidBucketAgg search "users" toTerms

13081308

1309+ it "return sub-aggregation results" $ withTestEnv $ do

1310+ _ <- insertData

1311+ let subaggs = mkAggregations "age_agg" . TermsAgg $ mkTermsAggregation "age"

1312+ agg = TermsAgg $ (mkTermsAggregation "user") { termAggs = Just subaggs}

1313+ search = mkAggregateSearch Nothing $ mkAggregations "users" agg

1314+ reply <- searchByIndex testIndex search

1315+ let result = decode (responseBody reply) :: Maybe (SearchResult Tweet)

1316+ usersAggResults = result >>= aggregations >>= toTerms "users"

1317+ subAddResultsExists = maybe (Left False) Right $ ((isJust . termsAggs . head . buckets) <$> usersAggResults)

1318+ liftIO $ (subAddResultsExists) `shouldBe` Right True

1319+

13091320 it "returns cardinality aggregation results" $ withTestEnv $ do

13101321 _ <- insertData

13111322 let cardinality = CardinalityAgg $ mkCardinalityAggregation $ FieldName "user"

tests/V5/tests.hs+11

@@ -1121,6 +1121,17 @@ main = hspec $ do

11211121 searchExpectAggs search

11221122 searchValidBucketAgg search "users" toTerms

11231123

1124+ it "return sub-aggregation results" $ withTestEnv $ do

1125+ _ <- insertData

1126+ let subaggs = mkAggregations "age_agg" . TermsAgg $ mkTermsAggregation "age"

1127+ agg = TermsAgg $ (mkTermsAggregation "user") { termAggs = Just subaggs}

1128+ search = mkAggregateSearch Nothing $ mkAggregations "users" agg

1129+ reply <- searchByIndex testIndex search

1130+ let result = decode (responseBody reply) :: Maybe (SearchResult Tweet)

1131+ usersAggResults = result >>= aggregations >>= toTerms "users"

1132+ subAddResultsExists = maybe (Left False) Right $ ((isJust . termsAggs . head . buckets) <$> usersAggResults)

1133+ liftIO $ (subAddResultsExists) `shouldBe` Right True

1134+

11241135 it "returns cardinality aggregation results" $ withTestEnv $ do

11251136 _ <- insertData

11261137 let cardinality = CardinalityAgg $ mkCardinalityAggregation $ FieldName "user"