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: 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"))