@@ -31,16 +31,6 @@ function getWorkspaceFile(name: string) {
31
31
return wsroot . with ( { path : path . posix . join ( wsroot . path , name ) } ) ;
32
32
}
33
33
34
- async function deleteWorkspaceFiles ( ) {
35
- const dirContents = await vscode . workspace . fs . readDirectory ( getWorkspaceRoot ( ) . uri ) ;
36
- console . log ( `Deleting test ws contents: ${ dirContents } ` ) ;
37
- dirContents . forEach ( async ( [ name , type ] ) => {
38
- const uri : vscode . Uri = getWorkspaceFile ( name ) ;
39
- console . log ( `Deleting ${ uri } ` ) ;
40
- await vscode . workspace . fs . delete ( getWorkspaceFile ( name ) , { recursive : true } ) ;
41
- } ) ;
42
- }
43
-
44
34
suite ( 'Extension Test Suite' , ( ) => {
45
35
const disposables : vscode . Disposable [ ] = [ ] ;
46
36
@@ -61,11 +51,11 @@ suite('Extension Test Suite', () => {
61
51
vscode . window . showInformationMessage ( 'Start all tests.' ) ;
62
52
63
53
suiteSetup ( async ( ) => {
64
- await deleteWorkspaceFiles ( ) ;
65
54
await getHaskellConfig ( ) . update ( 'logFile' , 'hls.log' ) ;
66
55
await getHaskellConfig ( ) . update ( 'trace.server' , 'messages' ) ;
67
56
await getHaskellConfig ( ) . update ( 'releasesDownloadStoragePath' , path . normalize ( getWorkspaceFile ( 'bin' ) . fsPath ) ) ;
68
- await getHaskellConfig ( ) . update ( 'serverEnvironment' , { XDG_CACHE_HOME : path . normalize ( getWorkspaceFile ( 'cache-test' ) . fsPath ) } ) ;
57
+ await getHaskellConfig ( ) . update ( 'serverEnvironment' ,
58
+ { XDG_CACHE_HOME : path . normalize ( getWorkspaceFile ( 'cache-test' ) . fsPath ) } ) ;
69
59
const contents = new TextEncoder ( ) . encode ( 'main = putStrLn "hi vscode tests"' ) ;
70
60
await vscode . workspace . fs . writeFile ( getWorkspaceFile ( 'Main.hs' ) , contents ) ;
71
61
} ) ;
@@ -110,9 +100,9 @@ suite('Extension Test Suite', () => {
110
100
} ) ;
111
101
112
102
suiteTeardown ( async ( ) => {
103
+ console . log ( 'Disposing all resources' )
113
104
disposables . forEach ( ( d ) => d . dispose ( ) ) ;
105
+ console . log ( 'Stopping the lsp server' ) ;
114
106
await vscode . commands . executeCommand ( CommandNames . StopServerCommandName ) ;
115
- delay ( 5 ) ; // to give time to shutdown server
116
- await deleteWorkspaceFiles ( ) ;
117
107
} ) ;
118
108
} ) ;
0 commit comments