79d4eda · typeable/bloodhound

git.iko.soy/typeable/bloodhound

on master help sign in

failing sub-aggs test

79d4edaJosh Berman10 years ago

tests/V1/tests.hs+11

compare with master

unifiedsplit

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

1306 searchExpectAggs search

1307 searchValidBucketAgg search "users" toTerms

1308

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+

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

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

1310 _ <- insertData

1321 _ <- insertData

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

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

tests/V5/tests.hs+11

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

1121 searchExpectAggs search

1122 searchValidBucketAgg search "users" toTerms

1123

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+

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

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

1125 _ <- insertData

1136 _ <- insertData

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

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