{-# LANGUAGE OverloadedStrings #-}

import qualified Data.ByteString             as BS
import           Test.Hspec
import           Web.Tweet.Parser.FastParser

main :: IO ()
main = hspec $ do
    describe "fastParse" $ do
        file <- runIO $ BS.readFile "test/data"
        parallel $ it "parses sample tweets wrong" $ do
            fastParse "" `shouldBe` Left "Error in $: not enough input"