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