Recognize Qt screenshot self-test failures

ober

e5df2dc53db5e34e1ef546ab33ea941e4a7a4b66

diff --git a/src/jcode/core/verified-run.ss b/src/jcode/core/verified-run.ss
index b756a52..7cb593b 100644
--- a/src/jcode/core/verified-run.ss
+++ b/src/jcode/core/verified-run.ss
@@ -930,7 +930,10 @@
 (def (qt-lifecycle-repair detail cwd)
   (and (string-contains detail "missing with-qt-app")
        (or (string-contains detail "self-test timed out")
-           (string-contains detail "self-test command failed"))
+           (string-contains detail "self-test command failed")
+           (string-contains detail "self-test did not print expected OK line")
+           (string-contains detail
+             "self-test did not write a non-empty screenshot"))
        (let ((source (source-containing-symbol cwd "qt-app-create")))
          (and source
               (let* ((path (car source))
diff --git a/test/run.ss b/test/run.ss
index 318b68d..d43e7a9 100644
--- a/test/run.ss
+++ b/test/run.ss
@@ -3012,7 +3012,7 @@
 	       [verify-command
 	         (string-append
 	           "grep -q fixed " target
-	           " || { echo 'FAIL: missing with-qt-app'; echo 'FAIL: self-test command failed'; echo 'self-test timed out after 20s'; exit 1; }")])
+	           " || { echo 'FAIL: missing with-qt-app'; echo 'FAIL: self-test did not print expected OK line'; echo 'FAIL: self-test did not write a non-empty screenshot'; exit 1; }")])
 	  (safe-delete-test-file! target-path)
 	  (call-with-output-file target-path
 	    (lambda (p) (display initial p)) 'replace)