test 0.2.7a

2026-08-11 10:38:07 +02:00
parent 352d4e348a
commit baf0ef5868
4 changed files with 16 additions and 10 deletions
@@ -39,8 +39,12 @@
      (collect-garbage)
      (collect-garbage)
      (collect-garbage)
-      (check-true (regexp-match? #rx"\\[git\\] push origin/master"
-                                 (get-output-string push-out)))
+      (define push-text (get-output-string push-out))
+      (check-true (regexp-match? #rx"\\[git\\] push origin/master" push-text))
+      (check-true (regexp-match? #rx"\\[git\\] push origin/master: done" push-text))
+      ;; Push progress callbacks remain installed, but must not perform output
+      ;; from FFI callback context. Percentage output would indicate a regression.
+      (check-false (regexp-match? #rx"%" push-text))
      (define quiet-out (open-output-string))
      (parameterize ([current-output-port quiet-out])
        (git 'push #:quiet #t))