diff options
author | John MacFarlane <jgm@berkeley.edu> | 2012-07-26 08:37:36 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2012-07-26 08:37:36 -0700 |
commit | 45e4c123a45b83d666088967c25b91cf9bb5db72 (patch) | |
tree | b3662354ccacd88b0d9238b3d0c049c4c876abc4 /tests/Tests/Shared.hs | |
parent | 3053267280bfd7b255f3bf47480e4a8a97ec2915 (diff) | |
download | pandoc-45e4c123a45b83d666088967c25b91cf9bb5db72.tar.gz |
Moved tests to tests/, modified cabal file so lib isn't recompiled.
Diffstat (limited to 'tests/Tests/Shared.hs')
-rw-r--r-- | tests/Tests/Shared.hs | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/tests/Tests/Shared.hs b/tests/Tests/Shared.hs new file mode 100644 index 000000000..f4bf13da4 --- /dev/null +++ b/tests/Tests/Shared.hs @@ -0,0 +1,26 @@ +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 = normalize bs == normalize (normalize bs) + +p_normalize_inlines_rt :: [Inline] -> Bool +p_normalize_inlines_rt ils = normalize ils == normalize (normalize ils) + +p_normalize_no_trailing_spaces :: [Inline] -> Bool +p_normalize_no_trailing_spaces ils = null ils' || last ils' /= Space + where ils' = normalize $ ils ++ [Space] |