diff options
author | Artyom Kazak <yom@artyom.me> | 2014-08-03 16:48:55 +0400 |
---|---|---|
committer | Artyom Kazak <yom@artyom.me> | 2014-08-03 17:37:37 +0400 |
commit | ec88d47f23d6761cf2120f76e45ca23cdc478e6c (patch) | |
tree | 97506dc41a66d0050b94d4a1c086c9e28d2a7927 /tests/test-pandoc.hs | |
parent | 842c705097fbb3987145eae85da2261cb264e618 (diff) | |
download | pandoc-ec88d47f23d6761cf2120f76e45ca23cdc478e6c.tar.gz |
Correctly implement capitalisation.
Using `map toUpper` to capitalise text is wrong, as e.g.
“Straße” should be converted to “STRASSE”, which is 1 character
longer. This commit adds a `capitalize` function and replaces
2 identical implementations in different modules (`toCaps` and
`capitalize`) with it.
Diffstat (limited to 'tests/test-pandoc.hs')
-rw-r--r-- | tests/test-pandoc.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/tests/test-pandoc.hs b/tests/test-pandoc.hs index 1dab8e6f1..e6924f6b2 100644 --- a/tests/test-pandoc.hs +++ b/tests/test-pandoc.hs @@ -17,6 +17,7 @@ import qualified Tests.Writers.HTML import qualified Tests.Writers.Docbook import qualified Tests.Writers.Native import qualified Tests.Writers.Markdown +import qualified Tests.Writers.Plain import qualified Tests.Writers.AsciiDoc import qualified Tests.Shared import qualified Tests.Walk @@ -33,6 +34,7 @@ tests = [ testGroup "Old" Tests.Old.tests , testGroup "HTML" Tests.Writers.HTML.tests , testGroup "Docbook" Tests.Writers.Docbook.tests , testGroup "Markdown" Tests.Writers.Markdown.tests + , testGroup "Plain" Tests.Writers.Plain.tests , testGroup "AsciiDoc" Tests.Writers.AsciiDoc.tests ] , testGroup "Readers" |