git.iko.soy/hakyll
on ea1bb41 help sign in
hakyll/tests/Regex.hs
24 lines 592 B history raw
1module Regex
2 ( regexGroup
3 ) where
5import qualified Data.Map as M
7import Data.Binary
8import Test.Framework (testGroup)
9import Test.Framework.Providers.HUnit
10import Test.Framework.Providers.QuickCheck2
11import Test.HUnit
12import Test.QuickCheck
14import Text.Hakyll.Regex
16-- Regex test group.
17regexGroup = testGroup "Regex"
18 [ testCase "test_splitRegex_1" test_splitRegex_1
19 , testCase "test_splitRegex_2" test_splitRegex_2
20 ]
22-- Split Regex test cases.
23test_splitRegex_1 = splitRegex "," "1,2,3" @?= ["1", "2", "3"]
24test_splitRegex_2 = splitRegex "," ",1,2," @?= ["1", "2"]