diff options
| author | Clint Adams <clint@debian.org> | 2012-11-06 22:49:28 -0500 |
|---|---|---|
| committer | Clint Adams <clint@debian.org> | 2012-11-06 23:13:53 -0500 |
| commit | d819bd5f3a308eb068ee4b51ae4290b62ad9952a (patch) | |
| tree | 499385182492fddbf7f7f9b17a961c5c71f05728 /src/Tests/Shared.hs | |
| parent | 3f2eb64830a28b9022887bf238a155c89d0812f1 (diff) | |
Imported Upstream version 1.9.4.5
Diffstat (limited to 'src/Tests/Shared.hs')
| -rw-r--r-- | src/Tests/Shared.hs | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/src/Tests/Shared.hs b/src/Tests/Shared.hs deleted file mode 100644 index f4bf13da4..000000000 --- a/src/Tests/Shared.hs +++ /dev/null @@ -1,26 +0,0 @@ -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] |