You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
40 lines
1.2 KiB
40 lines
1.2 KiB
{-# LANGUAGE OverloadedStrings #-} |
|
{-# LANGUAGE TemplateHaskell #-} |
|
|
|
module Tests.Stream where |
|
|
|
import Data.Conduit |
|
import qualified Data.Conduit.List as CL |
|
import Data.XML.Types |
|
import Test.Hspec |
|
import Test.Tasty.TH |
|
import Test.Tasty |
|
import Test.Tasty.Hspec |
|
|
|
import Network.Xmpp.Stream |
|
|
|
junk = [ EventBeginDocument |
|
, EventEndDocument |
|
, EventBeginDoctype "" Nothing |
|
, EventEndDoctype |
|
, EventInstruction $ Instruction "" "" |
|
-- , EventBeginElement Name [(Name, [Content])] |
|
, EventEndElement "foo" |
|
, EventContent $ ContentText "" |
|
, EventComment "" |
|
, EventCDATA "" |
|
] |
|
|
|
beginElem = EventBeginElement "foo" [] |
|
|
|
case_ThrowOutJunk = do |
|
it "drops everything but EvenBeginElement" $ do |
|
res <- CL.sourceList junk $$ throwOutJunk >> await |
|
res `shouldBe` Nothing |
|
it "keeps everything after (and including) EvenBeginElement" $ do |
|
res <- CL.sourceList (junk ++ [beginElem] ++ junk) |
|
$$ throwOutJunk >> CL.consume |
|
res `shouldBe` (beginElem : junk) |
|
|
|
testStreams :: TestTree |
|
testStreams = $testGroupGenerator
|
|
|