Rename parentAbs to parent

2015-05-11 18:29:15 +02:00
parent c0e93d2167
commit ef8503f38f
3 changed files with 12 additions and 12 deletions
--- a/test/Main.hs
+++ b/test/Main.hs
@@ -42,14 +42,14 @@ operationFilename =
 operationParentAbs :: Spec
 operationParentAbs =
  do it "parentAbs (parent </> child) == parent"
-        (parentAbs ($(mkAbsDir "/foo") </>
+        (parent ($(mkAbsDir "/foo") </>
                    $(mkRelDir "bar")) ==
         $(mkAbsDir "/foo"))
-     it "parentAbs \"\" == \"\""
-        (parentAbs $(mkAbsDir "/") ==
+     it "parent \"\" == \"\""
+        (parent $(mkAbsDir "/") ==
         $(mkAbsDir "/"))
-     it "parentAbs (parentAbs \"\") == \"\""
-        (parentAbs (parentAbs $(mkAbsDir "/")) ==
+     it "parent (parent \"\") == \"\""
+        (parent (parent $(mkAbsDir "/")) ==
         $(mkAbsDir "/"))

 -- | The 'isParentOf' operation.