hasufell/ghcup-hs
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix test

Browse Source
This commit is contained in:
Julian Ospald 2022-05-16 23:04:49 +02:00
parent e4b8c9748a
commit 65f02a5a7a
Signed by: hasufell
GPG Key ID: 3786C5262ECB4A3F
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
test/GHCup/Utils/FileSpec.hs
View File

@ -16,14 +16,14 @@ spec :: Spec
spec = do spec = do
describe "GHCup.Utils.File" $ do describe "GHCup.Utils.File" $ do
it "getDirectoryContentsRecursiveBFS" $ do it "getDirectoryContentsRecursiveBFS" $ do
l1 <- sort <$> S.toList (getDirectoryContentsRecursiveBFSUnsafe ".") l1 <- sort <$> S.toList (getDirectoryContentsRecursiveBFSUnsafe "lib")
l2 <- sort <$> getDirectoryContentsRecursiveLazy "." l2 <- sort <$> getDirectoryContentsRecursiveLazy "lib"
not (null l1) `shouldBe` True not (null l1) `shouldBe` True
not (null l2) `shouldBe` True not (null l2) `shouldBe` True
l1 `shouldBe` l2 l1 `shouldBe` l2
it "getDirectoryContentsRecursiveDFS" $ do it "getDirectoryContentsRecursiveDFS" $ do
l1 <- sort <$> S.toList (getDirectoryContentsRecursiveDFSUnsafe ".") l1 <- sort <$> S.toList (getDirectoryContentsRecursiveDFSUnsafe "lib")
l2 <- sort <$> getDirectoryContentsRecursiveLazy "." l2 <- sort <$> getDirectoryContentsRecursiveLazy "lib"
not (null l1) `shouldBe` True not (null l1) `shouldBe` True
not (null l2) `shouldBe` True not (null l2) `shouldBe` True
l1 `shouldBe` l2 l1 `shouldBe` l2