64ad6ff · typeable/pandoc

pandoc.cabal+1

compare with master

unifiedsplit

@@ -530,6 +530,7 @@ Test-Suite test-pandoc

530 Tests.Writers.Docbook

531 Tests.Writers.HTML

532 Tests.Writers.Markdown

533+ Tests.Writers.Org

533 Tests.Writers.Plain

534 Tests.Writers.Plain

534 Tests.Writers.AsciiDoc

535 Tests.Writers.AsciiDoc

535 Tests.Writers.LaTeX

536 Tests.Writers.LaTeX

src/Text/Pandoc/Writers/Org.hs+1−1

@@ -374,7 +374,7 @@ orgPath :: String -> String

374orgPath src =

375 case src of

376 [] -> mempty -- wiki link

377− ('#':xs) -> xs -- internal link

377+ ('#':_) -> src -- internal link

378 _ | isUrl src -> src

379 _ | isFilePath src -> src

380 _ -> "file:" <> src

test/Tests/Writers/Org.hsnew file+25

@@ -0,0 +1,25 @@

1+{-# LANGUAGE OverloadedStrings #-}

2+module Tests.Writers.Org (tests) where

3+

4+import Test.Framework

5+import Text.Pandoc.Builder

6+import Text.Pandoc

7+import Tests.Helpers

8+import Text.Pandoc.Arbitrary()

9+

10+infix 4 =:

11+(=:) :: (ToString a, ToPandoc a)

12+ => String -> (a, String) -> Test

13+(=:) = test (purely (writeOrg def . toPandoc))

14+

15+tests :: [Test]

16+tests = [ testGroup "links"

17+ -- See http://orgmode.org/manual/Internal-links.html#Internal-links

18+ [ "simple link"

19+ =: link "/url" "" "foo"

20+ =?> "[[/url][foo]]"

21+ , "internal link to anchor"

22+ =: link "#my-custom-id" "" "#my-custom-id"

23+ =?> "[[#my-custom-id]]"

24+ ]

25+ ]

test/test-pandoc.hs+2

@@ -21,6 +21,7 @@ import qualified Tests.Writers.HTML

21import qualified Tests.Writers.Docbook

22import qualified Tests.Writers.Native

23import qualified Tests.Writers.Markdown

24+import qualified Tests.Writers.Org

24import qualified Tests.Writers.Plain

25import qualified Tests.Writers.Plain

25import qualified Tests.Writers.AsciiDoc

26import qualified Tests.Writers.AsciiDoc

26import qualified Tests.Writers.Docx

27import qualified Tests.Writers.Docx

@@ -41,6 +42,7 @@ tests = [ Tests.Command.tests

41 , testGroup "HTML" Tests.Writers.HTML.tests

42 , testGroup "HTML" Tests.Writers.HTML.tests

42 , testGroup "Docbook" Tests.Writers.Docbook.tests

43 , testGroup "Docbook" Tests.Writers.Docbook.tests

43 , testGroup "Markdown" Tests.Writers.Markdown.tests

44 , testGroup "Markdown" Tests.Writers.Markdown.tests

45+ , testGroup "Org" Tests.Writers.Org.tests

44 , testGroup "Plain" Tests.Writers.Plain.tests

46 , testGroup "Plain" Tests.Writers.Plain.tests

45 , testGroup "AsciiDoc" Tests.Writers.AsciiDoc.tests

47 , testGroup "AsciiDoc" Tests.Writers.AsciiDoc.tests

46 , testGroup "Docx" Tests.Writers.Docx.tests

48 , testGroup "Docx" Tests.Writers.Docx.tests