Prepend test/ to filenames inside test tarfiles
This commit is contained in:
parent
7a65efb779
commit
560c35700b
|
@ -18,7 +18,8 @@
|
|||
(loop (bytevector-append whole part))))))))
|
||||
|
||||
(define (main arguments)
|
||||
(for-each (lambda (file) (tar-write-file file (slurp-binary-file file)))
|
||||
(for-each (lambda (file) (tar-write-file (string-append "test/" file)
|
||||
(slurp-binary-file file)))
|
||||
(cdr arguments)))
|
||||
|
||||
(main (command-line))
|
||||
|
|
Loading…
Reference in New Issue