nog een

test/flac-48khz-manager-test.rkt

@@ -58,7 +58,7 @@
   (set! convert-count (add1 convert-count))
   (call-with-output-file p #:exists 'replace
     (lambda (out) (fprintf out "converted to ~a compression ~a" rate compression)))
-  (list (cons 'mock #t) (cons 'target-sample-rate rate)))
+  (lambda () rate))
 
 (define first-summary
   (manage-flac-tree tmp #:inspect-flac-proc mock-inspect #:fingerprint-proc mock-fingerprint #:convert-proc mock-convert))

test/flac2opus-manager-test.rkt

@@ -33,7 +33,7 @@
   (make-directory* (let-values ([(base name dir?) (split-path dst)]) base))
   (call-with-output-file dst #:exists 'replace
     (lambda (o) (fprintf o "opus from ~a at ~a" (path->string src) kbps)))
-  (list (cons 'mock #t) (cons 'kbps kbps)))
+  (lambda () kbps))
 
 (define first-summary
   (manage-flac2opus-tree tmp out #:kbps 192 #:convert-proc mock-convert))