30 lines
960 B
Haskell
30 lines
960 B
Haskell
|
{-# LANGUAGE OverloadedStrings #-}
|
||
|
|
module Hakyll.Core.Identifier.Tests
|
||
|
|
( tests
|
||
|
|
) where
|
||
|
|
|
||
|
|
import Test.Framework
|
||
|
|
import Test.Framework.Providers.HUnit
|
||
|
|
import Test.HUnit hiding (Test)
|
||
|
|
|
||
|
|
import Hakyll.Core.Identifier.Pattern
|
||
|
|
|
||
|
|
tests :: [Test]
|
||
|
|
tests = zipWith testCase names matchCases
|
||
|
|
where
|
||
|
|
names = map (\n -> "match [" ++ show n ++ "]") [1 :: Int ..]
|
||
|
|
|
||
|
|
-- | Collection of simple cases
|
||
|
|
--
|
||
|
|
matchCases :: [Assertion]
|
||
|
|
matchCases =
|
||
|
|
[ Just [["bar"]] @=? match "foo/**" "foo/bar"
|
||
|
|
, Just [["foo", "bar"]] @=? match "**" "foo/bar"
|
||
|
|
, Nothing @=? match "*" "foo/bar"
|
||
|
|
, Just [] @=? match "foo" "foo"
|
||
|
|
, Just [["foo"]] @=? match "*/bar" "foo/bar"
|
||
|
|
, Just [["foo", "bar"]] @=? match "**/qux" "foo/bar/qux"
|
||
|
|
, Just [["foo", "bar"], ["qux"]] @=? match "**/*" "foo/bar/qux"
|
||
|
|
, Just [["foo"], ["bar", "qux"]] @=? match "*/**" "foo/bar/qux"
|
||
|
|
]
|