summaryrefslogtreecommitdiff
path: root/tests/Hakyll/Core/Identifier
diff options
context:
space:
mode:
authorJasper Van der Jeugt <jaspervdj@gmail.com>2011-04-06 09:39:20 +0200
committerJasper Van der Jeugt <jaspervdj@gmail.com>2011-04-06 09:39:20 +0200
commit78dbe8a3d127546c8c0cc5b464da0f2b8af7c9b0 (patch)
treef01f1739b312d8c5ab8865a7d821fd2ac4f0169f /tests/Hakyll/Core/Identifier
parent3d2b2506d040546d74e83f6d9b8b4e0c45026f09 (diff)
downloadhakyll-78dbe8a3d127546c8c0cc5b464da0f2b8af7c9b0.tar.gz
Add regex predicate helper
Diffstat (limited to 'tests/Hakyll/Core/Identifier')
-rw-r--r--tests/Hakyll/Core/Identifier/Tests.hs14
1 files changed, 13 insertions, 1 deletions
diff --git a/tests/Hakyll/Core/Identifier/Tests.hs b/tests/Hakyll/Core/Identifier/Tests.hs
index 5b5d34d..0d7bfb8 100644
--- a/tests/Hakyll/Core/Identifier/Tests.hs
+++ b/tests/Hakyll/Core/Identifier/Tests.hs
@@ -10,7 +10,13 @@ import Hakyll.Core.Identifier.Pattern
import TestSuite.Util
tests :: [Test]
-tests = fromAssertions "capture"
+tests = concat
+ [ captureTests
+ , regexTests
+ ]
+
+captureTests :: [Test]
+captureTests = fromAssertions "capture"
[ Just ["bar"] @=? capture "foo/**" "foo/bar"
, Just ["foo/bar"] @=? capture "**" "foo/bar"
, Nothing @=? capture "*" "foo/bar"
@@ -25,3 +31,9 @@ tests = fromAssertions "capture"
, Just ["foo/bar", "wut"] @=? capture "**/qux/*" "foo/bar/qux/wut"
, Just ["lol", "fun/large"] @=? capture "*cat/**.jpg" "lolcat/fun/large.jpg"
]
+
+regexTests :: [Test]
+regexTests = fromAssertions "regex"
+ [ True @=? matches (regex "^foo/[^x]*$") "foo/bar"
+ , False @=? matches (regex "^foo/[^x]*$") "foo/barx"
+ ]