testsuite: Print summary even if interrupted

Fixes #15265.

Reviewers: osa1

Reviewed By: osa1

Subscribers: rwbarton, thomie, carter

GHC Trac Issues: #15265

Differential Revision: https://phabricator.haskell.org/D4841

1 files changed, 18 insertions, 15 deletions

diff --git a/testsuite/driver/runtests.py b/testsuite/driver/runtests.py
index 622e2ea550..811a6e0abb 100644
--- a/testsuite/driver/runtests.py
+++ b/testsuite/driver/runtests.py
@@ -308,21 +308,24 @@ else:
     watcher = Watcher(len(parallelTests))
 
     # Now run all the tests
-    for oneTest in parallelTests:
-        if stopping():
-            break
-        oneTest(watcher)
-
-    # wait for parallel tests to finish
-    if not stopping():
-        watcher.wait()
-
-    # Run the following tests purely sequential
-    config.use_threads = False
-    for oneTest in aloneTests:
-        if stopping():
-            break
-        oneTest(watcher)
+    try:
+        for oneTest in parallelTests:
+            if stopping():
+                break
+            oneTest(watcher)
+
+        # wait for parallel tests to finish
+        if not stopping():
+            watcher.wait()
+
+        # Run the following tests purely sequential
+        config.use_threads = False
+        for oneTest in aloneTests:
+            if stopping():
+                break
+            oneTest(watcher)
+    except KeyboardInterrupt:
+        pass
 
     # flush everything before we continue
     sys.stdout.flush()