Don't delete the cache directory of ghcup

Author: fendor

.github/workflows/test.yml

@@ -30,8 +30,6 @@ jobs:
           ghc-version: ${{ matrix.ghc }}
       - run: |
           mkdir -p test-workspace/bin/
-          export GHCUP_USE_XDG_DIRS=1
-          export XDG_BIN_HOME=$(pwd)/test-workspace/bin/.ghcup/bin
           export GHCUP_INSTALL_BASE_PREFIX=$(pwd)/test-workspace/bin
           echo $XDG_BIN_HOME $GHCUP_INSTALL_BASE_PREFIX
           ghcup --no-verbose prefetch hls 1.4.0

test/suite/extension.test.ts

@@ -32,6 +32,11 @@ function getWorkspaceFile(name: string) {
   return wsroot.with({ path: path.posix.join(wsroot.path, name) });
 }
 
+// function getWorkspaceGhcupCacheDirectory() {
+//   const wsroot = getWorkspaceRoot().uri;
+//   return wsroot.with({ path: path.posix.join(wsroot.path, 'bin/.ghcup/cache') });
+// }
+
 async function deleteWorkspaceFiles(pred?: (fileType: [string, vscode.FileType]) => boolean) {
   await deleteFiles(getWorkspaceRoot().uri, pred);
 }
@@ -83,7 +88,21 @@ suite('Extension Test Suite', () => {
   vscode.window.showInformationMessage('Start all tests.');
 
   suiteSetup(async () => {
-    await deleteWorkspaceFiles(([fp, _]) => fp !== 'settings.json');
+    await deleteWorkspaceFiles(([fp, type]) => {
+      if (type === vscode.FileType.Directory && fp === '.vscode') {
+        return false;
+      }
+      if (type === vscode.FileType.Directory && fp === 'bin') {
+        return false;
+      }
+      if (type === vscode.FileType.Directory && fp === '.ghcup') {
+        return false;
+      }
+      if (type === vscode.FileType.Directory && fp === 'cache') {
+        return false;
+      }
+      return true;
+    });
     await getHaskellConfig().update('logFile', 'hls.log');
     await getHaskellConfig().update('trace.server', 'messages');
     await getHaskellConfig().update('releasesDownloadStoragePath', path.normalize(getWorkspaceFile('bin').fsPath));