Retry promise in CI test

Author: hasufell

test/suite/extension.test.ts

@@ -18,6 +18,23 @@ async function withTimeout(seconds: number, f: Promise<any>) {
   return Promise.race([f, delay(seconds)]);
 }
 
+const wait = (ms: number) => new Promise(r => setTimeout(r, ms));
+
+const retryOperation = (operation: () => Promise<any>, delay: number, retries: number) => new Promise((resolve, reject): Promise<any> => {
+  return operation()
+    .then(resolve)
+    .catch((reason) => {
+      if (retries > 0) {
+        return wait(delay)
+          .then(retryOperation.bind(null, operation, delay, retries - 1))
+          .then(resolve)
+          .catch(reject);
+      }
+      return reject(reason);
+    });
+});
+
+
 function getHaskellConfig() {
   return vscode.workspace.getConfiguration('haskell');
 }
@@ -165,7 +182,8 @@ suite('Extension Test Suite', () => {
     await delay(20);
     const logContents = getExtensionLogContent();
     assert.ok(logContents, 'Extension log file does not exist');
-    assert.match(logContents, /INFO hls:\s+Registering ide configuration/, 'Extension log file has no hls output');
+    assert.ok(retryOperation(() => new Promise((resolve, reject) => (logContents.match(/INFO hls:\s+Registering ide configuration/) !== null) ? resolve : reject), 1000 * 5, 20),
+							 'Extension log file has no hls output');
   });
 
   test('Server should inherit environment variables defined in the settings', async () => {