Prepend test/ to filenames inside test tarfiles

2021-08-17 13:26:44 +03:00
parent 7a65efb779
commit 560c35700b
1 changed files with 2 additions and 1 deletions
@@ -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))