cleanup temporary information

tests/remote.rkt

@@ -2,7 +2,8 @@
 
 (require rackunit
          racket/file
-         git)
+         git
+         libgit2)
 
 (define tmp (make-temporary-file "racket-git-remote-test~a" 'directory))
 (define origin (build-path tmp "origin.git"))
@@ -10,6 +11,11 @@
 (define b (build-path tmp "b"))
 (define c (build-path tmp "c"))
 
+(define (temporary-push-refs)
+  (filter (lambda (name)
+            (regexp-match? #rx"^refs/remotes/racket-git-push-" name))
+          (git_reference_list (git_repository_open (current-directory)))))
+
 (define (configure!)
   (git 'config "user.name" "Racket Git Test")
   (git 'config "user.email" "racket-git-test@example.invalid"))
@@ -40,6 +46,7 @@
       (collect-garbage)
       (collect-garbage)
       (define push-text (get-output-string push-out))
+      (check-equal? (temporary-push-refs) '())
       (check-true (regexp-match? #rx"\\[git\\] push origin/master" push-text))
       (check-true (regexp-match? #rx"\\[git\\] push origin/master: done" push-text))
       ;; A real push reports transfer progress, but the FFI callback itself only
@@ -65,8 +72,10 @@
       (git 'add "value.txt")
       (git 'commit "two")
       (git 'push)
+      (check-equal? (temporary-push-refs) '())
       (git 'tag "v2")
       (git 'push-tag "v2")
+      (check-equal? (temporary-push-refs) '())
       (define push-tag-quiet-out (open-output-string))
       (parameterize ([current-output-port push-tag-quiet-out])
         (git 'push-tag "v2" #:quiet #t))