diff options
| -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" |