@@ -432,7 +432,7 @@ main = hspec $ do
432432 myTweet <- searchTweet search
433433 myTweet `shouldBe` Right exampleTweet
434434
435− it "returns document for range double filter" $ do
435+ it "returns document for Double range filter" $ do
436436 _ <- insertData
437437 let filter = RangeFilter (FieldName "age")
438438 (RangeDoubleGtLt 1000.0 100000.0)
@@ -441,21 +441,22 @@ main = hspec $ do
441441 myTweet <- searchTweet search
442442 myTweet `shouldBe` Right exampleTweet
443443
444− it "returns document for range date filter" $ do
444+ it "returns document for UTCTime date filter" $ do
445445 _ <- insertData
446446 let filter = RangeFilter (FieldName "postDate")
447− (RangeDateGteLte
447+ (RangeDateGtLt
448448 (UTCTime
449449 (ModifiedJulianDay 55000)
450− (secondsToDiffTime 0))
450+ (secondsToDiffTime 9))
451451 (UTCTime
452− (ModifiedJulianDay 55001)
453− (secondsToDiffTime 0)))
452+ (ModifiedJulianDay 55000)
453+ (secondsToDiffTime 11)))
454454 RangeExecutionIndex False
455455 let search = mkSearch Nothing (Just filter)
456456 myTweet <- searchTweet search
457457 myTweet `shouldBe` Right exampleTweet
458458
459+
459460 it "returns document for regexp filter" $ do
460461 _ <- insertData
461462 let filter = RegexpFilter (FieldName "user") (Regexp "bite.*app")