blob: 43dd6c1365b20eccc566b9725435b49de7ebbc1e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
{-# LANGUAGE OverloadedStrings #-}
module Hakyll.Core.Identifier.Tests
( tests
) where
import Test.Framework
import Test.HUnit hiding (Test)
import Hakyll.Core.Identifier.Pattern
import TestSuite.Util
tests :: [Test]
tests = fromAssertions "match"
[ 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"
]
|