@@ -714,25 +714,24 @@ main = hspec $ do
714714 , docCountPair "notmyapps" 1
715715 ]))
716716
717− -- Interaction of date serialization and date histogram aggregation is broken.
718− -- it "returns date histogram aggregation results" $ withTestEnv $ do
719− -- _ <- insertData
720− -- let histogram = DateHistogramAgg $ mkDateHistogram (FieldName "postDate") Minute
721− -- let search = mkAggregateSearch Nothing (mkAggregations "byDate" histogram)
722− -- searchExpectAggs search
723− -- searchValidBucketAgg search "byDate" toDateHistogram
724−
725− -- it "returns date histogram using fractional date" $ withTestEnv $ do
726− -- _ <- insertData
727− -- let periods = [Year, Quarter, Month, Week, Day, Hour, Minute, Second]
728− -- let fractionals = map (FractionalInterval 1.5) [Weeks, Days, Hours, Minutes, Seconds]
729− -- let intervals = periods ++ fractionals
730− -- let histogram = mkDateHistogram (FieldName "postDate")
731− -- let search interval = mkAggregateSearch Nothing $ mkAggregations "byDate" $ DateHistogramAgg (histogram interval)
732− -- let expect interval = searchExpectAggs (search interval)
733− -- let valid interval = searchValidBucketAgg (search interval) "byDate" toDateHistogram
734− -- forM_ intervals expect
735− -- forM_ intervals valid
717+ it "returns date histogram aggregation results" $ withTestEnv $ do
718+ _ <- insertData
719+ let histogram = DateHistogramAgg $ mkDateHistogram (FieldName "postDate") Minute
720+ let search = mkAggregateSearch Nothing (mkAggregations "byDate" histogram)
721+ searchExpectAggs search
722+ searchValidBucketAgg search "byDate" toDateHistogram
723+
724+ it "returns date histogram using fractional date" $ withTestEnv $ do
725+ _ <- insertData
726+ let periods = [Year, Quarter, Month, Week, Day, Hour, Minute, Second]
727+ let fractionals = map (FractionalInterval 1.5) [Weeks, Days, Hours, Minutes, Seconds]
728+ let intervals = periods ++ fractionals
729+ let histogram = mkDateHistogram (FieldName "postDate")
730+ let search interval = mkAggregateSearch Nothing $ mkAggregations "byDate" $ DateHistogramAgg (histogram interval)
731+ let expect interval = searchExpectAggs (search interval)
732+ let valid interval = searchValidBucketAgg (search interval) "byDate" toDateHistogram
733+ forM_ intervals expect
734+ forM_ intervals valid
736735
737736 describe "Highlights API" $ do
738737