From 570d8ff08c7007c4fffd345c9bf2057201a0bdd4 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sat, 29 Jan 2011 11:24:16 -0800 Subject: Moved tests to src. --- src/Tests/Shared.hs | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 src/Tests/Shared.hs (limited to 'src/Tests/Shared.hs') diff --git a/src/Tests/Shared.hs b/src/Tests/Shared.hs new file mode 100644 index 000000000..c35a158c1 --- /dev/null +++ b/src/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) + -- cgit v1.2.3