e449cf3 · typeable/bloodhound

432 myTweet <- searchTweet search

433 myTweet `shouldBe` Right exampleTweet

434

435− it "returns document for range double filter" $ do

435+ it "returns document for Double range filter" $ do

436 _ <- insertData

437 let filter = RangeFilter (FieldName "age")

438 (RangeDoubleGtLt 1000.0 100000.0)

441 myTweet <- searchTweet search

442 myTweet `shouldBe` Right exampleTweet

443

444− it "returns document for range date filter" $ do

444+ it "returns document for UTCTime date filter" $ do

445 _ <- insertData

446 let filter = RangeFilter (FieldName "postDate")

447− (RangeDateGteLte

447+ (RangeDateGtLt

448 (UTCTime

449 (ModifiedJulianDay 55000)

450− (secondsToDiffTime 0))

450+ (secondsToDiffTime 9))

451 (UTCTime

452− (ModifiedJulianDay 55001)

452+ (ModifiedJulianDay 55000)

453− (secondsToDiffTime 0)))

453+ (secondsToDiffTime 11)))

454 RangeExecutionIndex False

455 let search = mkSearch Nothing (Just filter)

456 myTweet <- searchTweet search

457 myTweet `shouldBe` Right exampleTweet

458

459+

459 it "returns document for regexp filter" $ do

460 it "returns document for regexp filter" $ do

460 _ <- insertData

461 _ <- insertData

461 let filter = RegexpFilter (FieldName "user") (Regexp "bite.*app")

462 let filter = RegexpFilter (FieldName "user") (Regexp "bite.*app")