From cc5ea59b8cc52a0a7afa092af799761db2c4c7c1 Mon Sep 17 00:00:00 2001
From: Izzy Cecil <lorr.cecil@gmail.com>
Date: Sat, 19 Apr 2014 17:20:58 -0600
Subject: ADD: Added failing test cases for `toSiteRoot`.

---
 tests/Hakyll/Web/Html/Tests.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'tests')

diff --git a/tests/Hakyll/Web/Html/Tests.hs b/tests/Hakyll/Web/Html/Tests.hs
index e150ea2..bad5ebc 100644
--- a/tests/Hakyll/Web/Html/Tests.hs
+++ b/tests/Hakyll/Web/Html/Tests.hs
@@ -59,6 +59,8 @@ tests = testGroup "Hakyll.Web.Html.Tests" $ concat
         , "."     @=? toSiteRoot "index.html"
         , "."     @=? toSiteRoot "/index.html"
         , "../.." @=? toSiteRoot "foo/bar/qux"
+        , ".."    @=? toSiteRoot "./foo/bar.html"
+        , ".."    @=? toSiteRoot "/foo/./bar.html"
         ]
 
     , fromAssertions "isExternal"
-- 
cgit v1.2.3