diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-11-28 16:13:01 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-11-28 16:13:01 -0800 |
| commit | 5a225aa6037621209d41927e24d682389d719f50 (patch) | |
| tree | ace23dfa8b5c67b716018a5a9912c7d4bb19af84 /test | |
| parent | 845b6c8670a6d1a11c1a31ec15ec2f0831883cbe (diff) | |
Temporarily disable round-trip block test for muse reader.
See #4107.
Diffstat (limited to 'test')
| -rw-r--r-- | test/Tests/Readers/Muse.hs | 10 |
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" |