blob: 910bca39fdbdcd0b36c2f03b30a6841d3794b75c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
{-# 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"
]
|
