38 lines
1.2 KiB
Haskell
38 lines
1.2 KiB
Haskell
module Tests.Shared (tests) where
|
|
|
|
import Text.Pandoc.Definition
|
|
import Text.Pandoc.Shared
|
|
import Test.Framework
|
|
import Tests.Helpers
|
|
import Tests.Arbitrary()
|
|
import Test.Framework.Providers.HUnit
|
|
import Test.HUnit ( assertBool )
|
|
import Text.Pandoc.Builder
|
|
import Data.Monoid
|
|
|
|
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
|
|
]
|
|
, testGroup "compactify'DL"
|
|
[ testCase "compactify'DL with empty def" $
|
|
assertBool "compactify'DL"
|
|
(let x = [(str "word", [para (str "def"), mempty])]
|
|
in compactify'DL x == x)
|
|
]
|
|
]
|
|
|
|
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]
|