From 5a225aa6037621209d41927e24d682389d719f50 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Tue, 28 Nov 2017 16:13:01 -0800
Subject: Temporarily disable round-trip block test for muse reader.

See #4107.
---
 test/Tests/Readers/Muse.hs | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'test')

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"
-- 
cgit v1.2.3