diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2011-01-29 10:03:00 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2011-01-29 10:03:24 -0800 |
| commit | 0833daff4af7ce17aa0a77528731f30ec127bc68 (patch) | |
| tree | a09d37f20fe1bfc8bf3568be667466237415696d /tests/Tests | |
| parent | 18089a44f56dc76d7a2ec3cfc44e64ffe502487f (diff) | |
| download | pandoc-0833daff4af7ce17aa0a77528731f30ec127bc68.tar.gz | |
Added Tests.Shared with normalize round-trip tests.
Diffstat (limited to 'tests/Tests')
| -rw-r--r-- | tests/Tests/Shared.hs | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/tests/Tests/Shared.hs b/tests/Tests/Shared.hs new file mode 100644 index 000000000..c35a158c1 --- /dev/null +++ b/tests/Tests/Shared.hs @@ -0,0 +1,21 @@ +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 + ] + ] + +p_normalize_blocks_rt :: [Block] -> Bool +p_normalize_blocks_rt bs = normalize bs == normalize (normalize bs) + +p_normalize_inlines_rt :: [Inline] -> Bool +p_normalize_inlines_rt ils = normalize ils == normalize (normalize ils) + |