3fbbafd391
* Added normalizeInlines, normalizeBlocks. * Type signature is now more narrow, `Pandoc -> Pandoc` instead of `Data a :: a -> a`. Some users may need to change their uses of `normalize` to the newly exported `normalizeInlines` or `normalizeBlocks`.
28 lines
904 B
Haskell
28 lines
904 B
Haskell
module Tests.Shared (tests) where
|
|
|
|
import Text.Pandoc.Definition
|
|
import Text.Pandoc.Shared
|
|
import Test.Framework
|
|
import Tests.Helpers
|
|
import Tests.Arbitrary()
|
|
|
|
tests :: [Test]
|
|
tests = [ testGroup "normalize"
|
|
[ property "p_normalize_blocks_rt" p_normalize_blocks_rt
|
|
, property "p_normalize_inlines_rt" p_normalize_inlines_rt
|
|
, property "p_normalize_no_trailing_spaces"
|
|
p_normalize_no_trailing_spaces
|
|
]
|
|
]
|
|
|
|
p_normalize_blocks_rt :: [Block] -> Bool
|
|
p_normalize_blocks_rt bs =
|
|
normalizeBlocks bs == normalizeBlocks (normalizeBlocks bs)
|
|
|
|
p_normalize_inlines_rt :: [Inline] -> Bool
|
|
p_normalize_inlines_rt ils =
|
|
normalizeInlines ils == normalizeInlines (normalizeInlines ils)
|
|
|
|
p_normalize_no_trailing_spaces :: [Inline] -> Bool
|
|
p_normalize_no_trailing_spaces ils = null ils' || last ils' /= Space
|
|
where ils' = normalizeInlines $ ils ++ [Space]
|