From e9b7ea15778f2e33db42e561b9edb81fc7dd5b38 Mon Sep 17 00:00:00 2001 From: siiky Date: Tue, 8 Sep 2026 10:47:33 +0100 Subject: [PATCH] Fix `copy-file` test when using `PROGRAM_{PRE,SUF}FIX` --- tests/test-copy-file.scm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/tests/test-copy-file.scm b/tests/test-copy-file.scm index 1062429c..08195ae8 100644 --- a/tests/test-copy-file.scm +++ b/tests/test-copy-file.scm @@ -2,10 +2,10 @@ (chicken file posix) (chicken pathname)) -(delete-file* "csi.copy") -(let* ((orig-csi (make-pathname ".." "csi")) - (orig-size (file-size orig-csi))) - (copy-file orig-csi "csi.copy") - (let ((copy-size (file-size "csi.copy"))) - (delete-file "csi.copy") +(delete-file* "chicken.file.import.o.copy") +(let* ((orig-unit (make-pathname ".." "chicken.file.import.o")) + (orig-size (file-size orig-unit))) + (copy-file orig-unit "chicken.file.import.o.copy") + (let ((copy-size (file-size "chicken.file.import.o.copy"))) + (delete-file "chicken.file.import.o.copy") (assert (= orig-size copy-size)))) -- 2.53.0