Fix stripDir p p /= Nothing bug

2015-05-27 17:08:03 +02:00
parent 8f3b169760
commit 4e1816392a
4 changed files with 12 additions and 3 deletions
--- a/test/Main.hs
+++ b/test/Main.hs
@@ -101,6 +101,10 @@ operationStripDir =
                  ($(mkRelDir "bar/") </>
                   $(mkRelFile "bob/foo.txt")) ==
         Just $(mkRelFile "bob/foo.txt"))
+     it "stripDir parent parent = _|_"
+        (stripDir $(mkAbsDir "/home/chris/foo")
+                  $(mkAbsDir "/home/chris/foo") ==
+         Nothing)

 -- | The '</>' operation.
 operationAppend :: Spec