suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

More verbose error output for deterministic-zo test.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2020-05-20 16:07:47 -04:00
parent a17e662597
commit 7b9bf6285f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkgs/racket-test/tests/racket/deterministic-zo.rkt
View File

@ -34,14 +34,14 @@
(unless (equal? c1 c2)
(call-with-output-file* "/tmp/c1" #:exists 'truncate (lambda (o) (write-bytes c1 o)))
(call-with-output-file* "/tmp/c2" #:exists 'truncate (lambda (o) (write-bytes c2 o)))
(error "failed"))
(error 'check-file "failed: ~s ~s ~s ~s" dir collects-dir sub-dir f))
(define zo (get-compilation-bytecode-file (build-path dir f) #:modes (use-compiled-file-paths)))
(when (file-exists? zo)
(define c3 (file->bytes zo))
(unless (equal? c3 c1)
(call-with-output-file* "/tmp/c1" #:exists 'truncate (lambda (o) (write-bytes c1 o)))
(call-with-output-file* "/tmp/c2" #:exists 'truncate (lambda (o) (write-bytes c3 o)))
(error "failed relative to built"))))
(error 'check-file "failed relative to built: ~s ~s ~s ~s ~s" dir collects-dir sub-dir f zo))))
(define (check dir [collects-dir dir] [sub-dir 'same] #:limit [limit +inf.0])
(for/fold ([limit limit]) ([f (in-list (directory-list dir))]