1 files changed, 24 insertions, 0 deletions
diff --git a/tests/Regex.hs b/tests/Regex.hs
new file mode 100644
index 0000000..5aac932
--- /dev/null
+++ b/tests/Regex.hs
@@ -0,0 +1,24 @@
+module Regex 
+    ( regexGroup
+    ) where
+
+import qualified Data.Map as M
+
+import Data.Binary
+import Test.Framework (testGroup)
+import Test.Framework.Providers.HUnit
+import Test.Framework.Providers.QuickCheck2
+import Test.HUnit
+import Test.QuickCheck
+
+import Text.Hakyll.Regex
+
+-- Regex test group.
+regexGroup = testGroup "Regex"
+    [ testCase "test_splitRegex_1" test_splitRegex_1
+    , testCase "test_splitRegex_2" test_splitRegex_2
+    ]
+
+-- Split Regex test cases.
+test_splitRegex_1 = splitRegex "," "1,2,3" @?= ["1", "2", "3"]
+test_splitRegex_2 = splitRegex "," ",1,2," @?= ["1", "2"]