From a68b46b060098ed617294b9e805f52380ff941e9 Mon Sep 17 00:00:00 2001
From: Chris Done <chrisdone@gmail.com>
Date: Mon, 11 May 2015 19:01:35 +0200
Subject: [PATCH] Update test suite

---
 test/Main.hs | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/test/Main.hs b/test/Main.hs
index 1c58d18..b0f973e 100644
--- a/test/Main.hs
+++ b/test/Main.hs
@@ -23,7 +23,7 @@ spec =
      describe "Operations: (</>)" operationAppend
      describe "Operations: stripDir" operationStripDir
      describe "Operations: isParentOf" operationIsParentOf
-     describe "Operations: parentAbs" operationParentAbs
+     describe "Operations: parent" operationParent
      describe "Operations: filename" operationFilename
 
 -- | The 'filename' operation.
@@ -38,10 +38,10 @@ operationFilename =
                    filename $(mkRelFile "bar.txt")) ==
          $(mkRelFile "bar.txt"))
 
--- | The 'parentAbs' operation.
-operationParentAbs :: Spec
-operationParentAbs =
-  do it "parentAbs (parent </> child) == parent"
+-- | The 'parent' operation.
+operationParent :: Spec
+operationParent =
+  do it "parent (parent </> child) == parent"
         (parent ($(mkAbsDir "/foo") </>
                     $(mkRelDir "bar")) ==
          $(mkAbsDir "/foo"))