aboutsummaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
Diffstat (limited to 'test')
-rw-r--r--test/Tests/Readers/Muse.hs10
1 files changed, 6 insertions, 4 deletions
diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs
index 4c7e57980..0cccb50e6 100644
--- a/test/Tests/Readers/Muse.hs
+++ b/test/Tests/Readers/Muse.hs
@@ -5,12 +5,12 @@ import Data.List (intersperse)
import Data.Text (Text)
import qualified Data.Text as T
import Test.Tasty
-import Test.Tasty.QuickCheck
+-- import Test.Tasty.QuickCheck
import Tests.Helpers
import Text.Pandoc
import Text.Pandoc.Arbitrary ()
import Text.Pandoc.Builder
-import Text.Pandoc.Walk (walk)
+-- import Text.Pandoc.Walk (walk)
amuse :: Text -> Pandoc
amuse = purely $ readMuse def { readerExtensions = extensionsFromList [Ext_amuse]}
@@ -26,6 +26,7 @@ infix 4 =:
spcSep :: [Inlines] -> Inlines
spcSep = mconcat . intersperse space
+{-
-- Tables and code blocks don't round-trip yet
removeTables :: Block -> Block
@@ -45,6 +46,7 @@ roundTrip b = d'' == d'''
(purely $ writeMuse def { writerExtensions = extensionsFromList [Ext_amuse]
, writerWrapText = WrapPreserve
})
+-}
tests :: [TestTree]
tests =
@@ -190,8 +192,8 @@ tests =
]
, testGroup "Blocks"
- [ testProperty "Round trip" roundTrip
- , "Block elements end paragraphs" =:
+ [ -- testProperty "Round trip" roundTrip,
+ "Block elements end paragraphs" =:
T.unlines [ "First paragraph"
, "----"
, "Second paragraph"