From d41c17a2d5b3de54334eb05c60be76b468f5811f Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Fri, 14 Jan 2011 00:30:36 -0800 Subject: Added quickcheck tests for normalize in Shared. --- tests/Tests/Shared.hs | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 tests/Tests/Shared.hs (limited to 'tests/Tests') diff --git a/tests/Tests/Shared.hs b/tests/Tests/Shared.hs new file mode 100644 index 000000000..c7222c035 --- /dev/null +++ b/tests/Tests/Shared.hs @@ -0,0 +1,13 @@ +module Tests.Shared (tests) where +import Test.Framework.Providers.QuickCheck2 +import Test.Framework +import Tests.Arbitrary +import Text.Pandoc.Shared +import Text.Pandoc + +normalize_rt :: Pandoc -> Bool +normalize_rt d = normalize (normalize d) == normalize d + +tests :: [Test] +tests = [ testProperty "normalize_rt" normalize_rt ] + -- cgit v1.2.3