hasufell/hpath
1
1
Fork 0
Code Issues 8 Pull Requests Releases Wiki Activity

Update test suite

Browse Source
This commit is contained in:
Chris Done 2015-05-11 19:01:35 +02:00
parent 9020acc813
commit a68b46b060
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
test/Main.hs
View File

@ -23,7 +23,7 @@ spec =
describe "Operations: (</>)" operationAppend describe "Operations: (</>)" operationAppend
describe "Operations: stripDir" operationStripDir describe "Operations: stripDir" operationStripDir
describe "Operations: isParentOf" operationIsParentOf describe "Operations: isParentOf" operationIsParentOf
describe "Operations: parentAbs" operationParentAbs describe "Operations: parent" operationParent
describe "Operations: filename" operationFilename describe "Operations: filename" operationFilename
-- | The 'filename' operation. -- | The 'filename' operation.
@ -38,10 +38,10 @@ operationFilename =
filename $(mkRelFile "bar.txt")) == filename $(mkRelFile "bar.txt")) ==
$(mkRelFile "bar.txt")) $(mkRelFile "bar.txt"))
-- | The 'parentAbs' operation. -- | The 'parent' operation.
operationParentAbs :: Spec operationParent :: Spec
operationParentAbs = operationParent =
do it "parentAbs (parent </> child) == parent" do it "parent (parent </> child) == parent"
(parent ($(mkAbsDir "/foo") </> (parent ($(mkAbsDir "/foo") </>
$(mkRelDir "bar")) == $(mkRelDir "bar")) ==
$(mkAbsDir "/foo")) $(mkAbsDir "/foo"))