From 65f02a5a7a0390b1b1deb8cd09194d218b5c8fd8 Mon Sep 17 00:00:00 2001 From: Julian Ospald Date: Mon, 16 May 2022 23:04:49 +0200 Subject: [PATCH] Fix test --- test/GHCup/Utils/FileSpec.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/test/GHCup/Utils/FileSpec.hs b/test/GHCup/Utils/FileSpec.hs index fb186d6..8bcc53c 100644 --- a/test/GHCup/Utils/FileSpec.hs +++ b/test/GHCup/Utils/FileSpec.hs @@ -16,14 +16,14 @@ spec :: Spec spec = do describe "GHCup.Utils.File" $ do it "getDirectoryContentsRecursiveBFS" $ do - l1 <- sort <$> S.toList (getDirectoryContentsRecursiveBFSUnsafe ".") - l2 <- sort <$> getDirectoryContentsRecursiveLazy "." + l1 <- sort <$> S.toList (getDirectoryContentsRecursiveBFSUnsafe "lib") + l2 <- sort <$> getDirectoryContentsRecursiveLazy "lib" not (null l1) `shouldBe` True not (null l2) `shouldBe` True l1 `shouldBe` l2 it "getDirectoryContentsRecursiveDFS" $ do - l1 <- sort <$> S.toList (getDirectoryContentsRecursiveDFSUnsafe ".") - l2 <- sort <$> getDirectoryContentsRecursiveLazy "." + l1 <- sort <$> S.toList (getDirectoryContentsRecursiveDFSUnsafe "lib") + l2 <- sort <$> getDirectoryContentsRecursiveLazy "lib" not (null l1) `shouldBe` True not (null l2) `shouldBe` True l1 `shouldBe` l2