69 lines
2.9 KiB
Haskell
69 lines
2.9 KiB
Haskell
--------------------------------------------------------------------------------
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
module Hakyll.Core.Identifier.Tests
|
|
( tests
|
|
) where
|
|
|
|
|
|
--------------------------------------------------------------------------------
|
|
import Data.Monoid (mappend, mempty)
|
|
import Test.Framework (Test, testGroup)
|
|
import Test.HUnit ((@=?))
|
|
|
|
|
|
--------------------------------------------------------------------------------
|
|
import Hakyll.Core.Identifier
|
|
import Hakyll.Core.Identifier.Pattern
|
|
import TestSuite.Util
|
|
|
|
|
|
--------------------------------------------------------------------------------
|
|
tests :: Test
|
|
tests = testGroup "Hakyll.Core.Identifier.Tests" $ concat
|
|
[ isLiteralTests
|
|
, captureTests
|
|
, matchesTests
|
|
]
|
|
|
|
|
|
--------------------------------------------------------------------------------
|
|
isLiteralTests :: [Test]
|
|
isLiteralTests = fromAssertions "isLiteral"
|
|
[ Just "index.html" @=? fromLiteral "index.html"
|
|
, Nothing @=? fromLiteral "posts/*.markdown"
|
|
, Just "test.txt" @=? fromLiteral ("test.txt" `mappend` mempty)
|
|
]
|
|
|
|
|
|
--------------------------------------------------------------------------------
|
|
captureTests :: [Test]
|
|
captureTests = fromAssertions "capture"
|
|
[ Just ["bar"] @=? capture "foo/**" "foo/bar"
|
|
, Just ["foo/bar"] @=? capture "**" "foo/bar"
|
|
, Nothing @=? capture "*" "foo/bar"
|
|
, Just [] @=? capture "foo" "foo"
|
|
, Just ["foo"] @=? capture "*/bar" "foo/bar"
|
|
, Just ["foo/bar"] @=? capture "**/qux" "foo/bar/qux"
|
|
, Just ["foo/bar", "qux"] @=? capture "**/*" "foo/bar/qux"
|
|
, Just ["foo", "bar/qux"] @=? capture "*/**" "foo/bar/qux"
|
|
, Just ["foo"] @=? capture "*.html" "foo.html"
|
|
, Nothing @=? capture "*.html" "foo/bar.html"
|
|
, Just ["foo/bar"] @=? capture "**.html" "foo/bar.html"
|
|
, Just ["foo/bar", "wut"] @=? capture "**/qux/*" "foo/bar/qux/wut"
|
|
, Just ["lol", "fun/large"] @=? capture "*cat/**.jpg" "lolcat/fun/large.jpg"
|
|
, Just [] @=? capture "\\*.jpg" "*.jpg"
|
|
, Nothing @=? capture "\\*.jpg" "foo.jpg"
|
|
]
|
|
|
|
|
|
--------------------------------------------------------------------------------
|
|
matchesTests :: [Test]
|
|
matchesTests = fromAssertions "matches"
|
|
[ True @=? matches (fromList ["foo.markdown"]) "foo.markdown"
|
|
, False @=? matches (fromList ["foo"]) (setVersion (Just "x") "foo")
|
|
, True @=? matches (fromVersion (Just "xz")) (setVersion (Just "xz") "bar")
|
|
, True @=? matches (fromRegex "^foo/[^x]*$") "foo/bar"
|
|
, False @=? matches (fromRegex "^foo/[^x]*$") "foo/barx"
|
|
, True @=? matches (complement "foo.markdown") "bar.markdown"
|
|
, False @=? matches (complement "foo.markdown") "foo.markdown"
|
|
]
|