diff options
| author | Mateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk> | 2014-11-04 21:04:07 +0000 |
|---|---|---|
| committer | Mateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk> | 2014-11-04 21:04:07 +0000 |
| commit | 0891c568f645edcac35442576757ab6fcaa7b6ec (patch) | |
| tree | d3c961f0fd0901f62b8f6c7c1c4a941527179968 /haddock-library/test | |
| parent | fc462513143aa0ec3fbed879a3483e376173d9fc (diff) | |
Fix parsing of identifiers written in infix way
Diffstat (limited to 'haddock-library/test')
| -rw-r--r-- | haddock-library/test/Documentation/Haddock/ParserSpec.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/haddock-library/test/Documentation/Haddock/ParserSpec.hs b/haddock-library/test/Documentation/Haddock/ParserSpec.hs index a228a956..5550e836 100644 --- a/haddock-library/test/Documentation/Haddock/ParserSpec.hs +++ b/haddock-library/test/Documentation/Haddock/ParserSpec.hs @@ -85,6 +85,12 @@ spec = do " don't use apostrophe's in the wrong place's" `shouldParseTo` "don't use apostrophe's in the wrong place's" + it "doesn't parse empty identifiers" $ do + "``" `shouldParseTo` "``" + + it "can parse infix identifiers" $ do + "``infix``" `shouldParseTo` "`" <> DocIdentifier "infix" <> "`" + context "when parsing URLs" $ do it "parses a URL" $ do "<http://example.com/>" `shouldParseTo` hyperlink "http://example.com/" Nothing |