typeable/bloodhound
1
0
Fork 0
mirror of https://github.com/typeable/bloodhound.git synced 2024-09-11 08:25:32 +03:00
Code Issues Projects Releases Wiki Activity

paranoia and formatting

Browse Source
This commit is contained in:
Chris Allen 2014-04-06 22:51:30 -05:00
parent 031bac3d7d
commit 576512da86
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/tests.hs
View File

@ -30,7 +30,8 @@ instance ToJSON Tweet
instance FromJSON Tweet
exampleTweet = Tweet { user = "bitemyapp"
, postDate = UTCTime (ModifiedJulianDay 55000)
, postDate = UTCTime
(ModifiedJulianDay 55000)
(secondsToDiffTime 10)
, message = "Use haskell!" }
@ -48,6 +49,7 @@ main = hspec $ do
it "indexes, gets, and then deletes the generated document" $ do
let tweet = exampleTweet
let encoded = encode tweet
_ <- deleteExampleIndex
created <- createExampleIndex
docCreated <- indexDocument (Server "http://localhost:9200") "twitter" "tweet" tweet "1"
docInserted <- getDocument (Server "http://localhost:9200") "twitter" "tweet" "1"