git.iko.soy/typeable/bloodhound
on master help sign in
more specific sub-agg test; updated plain stack.yaml
commit576e25dfb39607de289673a795f7d3f56880c168 authorJosh Berman <berman.josh@gmail.com> dateMon 30 Jan 2017, 12:05 (10 years ago) parent895df29
3 files changed+7−14
compare with master
unifiedsplit
stack.yaml+1−10 tests/V1/tests.hs+3−2 tests/V5/tests.hs+3−2
stack.yaml+1−10
@@ -3,13 +3,4 @@ packages:
33- '.'
44extra-deps:
55- quickcheck-properties-0.1
6−
7−# - http-client-0.5.0
8−# - fail-4.9.0.0
9−# - http-types-0.9
10−# - attoparsec-0.13.0.1
11−# - doctest-0.10.1
12−# - semigroups-0.18.0.1
13−# - uri-bytestring-0.1.9
14−# - temporary-resourcet-0.1.0.0
15−resolver: nightly-2016-08-20
6+resolver: nightly-2017-01-30
tests/V1/tests.hs+3−2
@@ -1314,8 +1314,9 @@ main = hspec $ do
13141314 reply <- searchByIndex testIndex search
13151315 let result = decode (responseBody reply) :: Maybe (SearchResult Tweet)
13161316 usersAggResults = result >>= aggregations >>= toTerms "users"
1317− subAddResultsExists = maybe (Left False) Right $ ((isJust . termsAggs . head . buckets) <$> usersAggResults)
1318− liftIO $ (subAddResultsExists) `shouldBe` Right True
1317+ subAggResults = usersAggResults >>= (listToMaybe . buckets) >>= termsAggs >>= toTerms "age_agg"
1318+ subAddResultsExists = isJust subAggResults
1319+ liftIO $ (subAddResultsExists) `shouldBe` True
13191320
13201321 it "returns cardinality aggregation results" $ withTestEnv $ do
13211322 _ <- insertData
tests/V5/tests.hs+3−2
@@ -1129,8 +1129,9 @@ main = hspec $ do
11291129 reply <- searchByIndex testIndex search
11301130 let result = decode (responseBody reply) :: Maybe (SearchResult Tweet)
11311131 usersAggResults = result >>= aggregations >>= toTerms "users"
1132− subAddResultsExists = maybe (Left False) Right $ ((isJust . termsAggs . head . buckets) <$> usersAggResults)
1133− liftIO $ (subAddResultsExists) `shouldBe` Right True
1132+ subAggResults = usersAggResults >>= (listToMaybe . buckets) >>= termsAggs >>= toTerms "age_agg"
1133+ subAddResultsExists = isJust subAggResults
1134+ liftIO $ (subAddResultsExists) `shouldBe` True
11341135
11351136 it "returns cardinality aggregation results" $ withTestEnv $ do
11361137 _ <- insertData