From 72d1900b30d20e369df5f4201e224e8edf314386 Mon Sep 17 00:00:00 2001
From: Sidharth Kapur <sidharthkapur1@gmail.com>
Date: Sun, 1 May 2016 22:23:33 -0500
Subject: Add test for RST code directive class
---
tests/Tests/Readers/RST.hs | 15 +++++++++++++++
1 file changed, 15 insertions(+)
(limited to 'tests')
diff --git a/tests/Tests/Readers/RST.hs b/tests/Tests/Readers/RST.hs
index ea85a5929..8fa2e4828 100644
--- a/tests/Tests/Readers/RST.hs
+++ b/tests/Tests/Readers/RST.hs
@@ -8,6 +8,7 @@ import Tests.Arbitrary()
import Text.Pandoc.Builder
import Text.Pandoc
import Text.Pandoc.Error
+import qualified Data.Sequence as Seq
rst :: String -> Pandoc
rst = handleError . readRST def{ readerStandalone = True }
@@ -94,6 +95,20 @@ tests = [ "line block with blank line" =:
("A-1-B_2_C:3:D+4+E.5.F_\n\n" ++
".. _A-1-B_2_C:3:D+4+E.5.F: https://example.com\n") =?>
para (link "https://example.com" "" "A-1-B_2_C:3:D+4+E.5.F")
+ , "Code directive with class and number-lines" =: unlines
+ [ ".. code::python"
+ , " :number-lines: 34"
+ , " :class: class1 class2 class3"
+ , ""
+ , " def func(x):"
+ , " return y"
+ ] =?>
+ ( doc . Many . Seq.singleton $
+ CodeBlock ( ""
+ , ["sourceCode", "python", "numberLines", "class1", "class2", "class3"]
+ , [ ("startFrom", "34") ]
+ ) "def func(x):\n return y"
+ )
, testGroup "literal / line / code blocks"
[ "indented literal block" =: unlines
[ "::"
--
cgit v1.2.3
From d7bc8c06324a0ca0ce32ece35a5dc157dadc4187 Mon Sep 17 00:00:00 2001
From: Sidharth Kapur <sidharthkapur1@gmail.com>
Date: Sun, 1 May 2016 22:32:26 -0500
Subject: Use `codeBlockWith`
---
tests/Tests/Readers/RST.hs | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
(limited to 'tests')
diff --git a/tests/Tests/Readers/RST.hs b/tests/Tests/Readers/RST.hs
index 8fa2e4828..0fc8ecc32 100644
--- a/tests/Tests/Readers/RST.hs
+++ b/tests/Tests/Readers/RST.hs
@@ -8,7 +8,6 @@ import Tests.Arbitrary()
import Text.Pandoc.Builder
import Text.Pandoc
import Text.Pandoc.Error
-import qualified Data.Sequence as Seq
rst :: String -> Pandoc
rst = handleError . readRST def{ readerStandalone = True }
@@ -103,11 +102,12 @@ tests = [ "line block with blank line" =:
, " def func(x):"
, " return y"
] =?>
- ( doc . Many . Seq.singleton $
- CodeBlock ( ""
- , ["sourceCode", "python", "numberLines", "class1", "class2", "class3"]
- , [ ("startFrom", "34") ]
- ) "def func(x):\n return y"
+ ( doc $ codeBlockWith
+ ( ""
+ , ["sourceCode", "python", "numberLines", "class1", "class2", "class3"]
+ , [ ("startFrom", "34") ]
+ )
+ "def func(x):\n return y"
)
, testGroup "literal / line / code blocks"
[ "indented literal block" =: unlines
--
cgit v1.2.3
From ff489a59f4158a95fb01d1164b5fd2b865586e73 Mon Sep 17 00:00:00 2001
From: Sidharth Kapur <sidharthkapur1@gmail.com>
Date: Sun, 1 May 2016 22:36:19 -0500
Subject: Add one more test
---
tests/Tests/Readers/RST.hs | 14 ++++++++++++++
1 file changed, 14 insertions(+)
(limited to 'tests')
diff --git a/tests/Tests/Readers/RST.hs b/tests/Tests/Readers/RST.hs
index 0fc8ecc32..622f5e48b 100644
--- a/tests/Tests/Readers/RST.hs
+++ b/tests/Tests/Readers/RST.hs
@@ -109,6 +109,20 @@ tests = [ "line block with blank line" =:
)
"def func(x):\n return y"
)
+ , "Code directive with number-lines, no line specified" =: unlines
+ [ ".. code::python"
+ , " :number-lines: "
+ , ""
+ , " def func(x):"
+ , " return y"
+ ] =?>
+ ( doc $ codeBlockWith
+ ( ""
+ , ["sourceCode", "python", "numberLines"]
+ , [ ("startFrom", "") ]
+ )
+ "def func(x):\n return y"
+ )
, testGroup "literal / line / code blocks"
[ "indented literal block" =: unlines
[ "::"
--
cgit v1.2.3