1 files changed, 13 insertions, 0 deletions
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 ]
+