hakyll/tests/Hakyll/Core/Identifier/Tests.hs

{-# 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
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"
    ]