aboutsummaryrefslogtreecommitdiff
path: root/test/Haddock/Parser/UtilSpec.hs
diff options
context:
space:
mode:
Diffstat (limited to 'test/Haddock/Parser/UtilSpec.hs')
-rw-r--r--test/Haddock/Parser/UtilSpec.hs23
1 files changed, 0 insertions, 23 deletions
diff --git a/test/Haddock/Parser/UtilSpec.hs b/test/Haddock/Parser/UtilSpec.hs
deleted file mode 100644
index 9e1e8de1..00000000
--- a/test/Haddock/Parser/UtilSpec.hs
+++ /dev/null
@@ -1,23 +0,0 @@
-{-# LANGUAGE OverloadedStrings #-}
-module Haddock.Parser.UtilSpec (main, spec) where
-
-import Test.Hspec
-import Data.Either
-
-import Data.Attoparsec.ByteString.Char8
-import Haddock.Parser
-
-main :: IO ()
-main = hspec spec
-
-spec :: Spec
-spec = do
- describe "takeUntil" $ do
- it "takes everything until a specified byte sequence" $ do
- parseOnly (takeUntil "end") "someend" `shouldBe` Right "some"
-
- it "requires the end sequence" $ do
- parseOnly (takeUntil "end") "someen" `shouldSatisfy` isLeft
-
- it "takes escaped bytes unconditionally" $ do
- parseOnly (takeUntil "end") "some\\endend" `shouldBe` Right "some\\end"