git.iko.soy/typeable/pandoc
on febbf5d help sign in
typeable/pandoc/src/Tests/Shared.hs
26 lines 854 B history raw
1module Tests.Shared (tests) where
3import Text.Pandoc.Definition
4import Text.Pandoc.Shared
5import Test.Framework
6import Tests.Helpers
7import Tests.Arbitrary()
9tests :: [Test]
10tests = [ testGroup "normalize"
11 [ property "p_normalize_blocks_rt" p_normalize_blocks_rt
12 , property "p_normalize_inlines_rt" p_normalize_inlines_rt
13 , property "p_normalize_no_trailing_spaces"
14 p_normalize_no_trailing_spaces
15 ]
16 ]
18p_normalize_blocks_rt :: [Block] -> Bool
19p_normalize_blocks_rt bs = normalize bs == normalize (normalize bs)
21p_normalize_inlines_rt :: [Inline] -> Bool
22p_normalize_inlines_rt ils = normalize ils == normalize (normalize ils)
24p_normalize_no_trailing_spaces :: [Inline] -> Bool
25p_normalize_no_trailing_spaces ils = null ils' || last ils' /= Space
26 where ils' = normalize $ ils ++ [Space]