Changed test system. Wrote some test cases.

1 files changed, 23 insertions, 0 deletions

diff --git a/tests/Main.hs b/tests/Main.hs
new file mode 100644
index 0000000..3654340
--- /dev/null
+++ b/tests/Main.hs
@@ -0,0 +1,23 @@
+module Main where
+
+import Control.Monad (mapM_)
+import Test.QuickCheck
+
+import Template
+import Util
+
+main = do
+    runTests "Template" $ do
+        quickCheck prop_template_encode_id
+        quickCheck prop_substitute_id
+        quickCheck prop_substitute_case1
+
+    runTests "Util" $ do
+        quickCheck prop_trim_length
+        quickCheck prop_trim_id
+        quickCheck prop_stripHTML_length
+        quickCheck prop_stripHTML_id
+
+  where
+    runTests name action = do putStrLn name
+                              action