Welcome to the CHICKEN Scheme pasting service

commit caf2e18e331c5df2d7a005568a4993b0b78bd1bc
Author: siiky <github-siiky@net-c.cat>
Date:   Tue Sep 8 10:47:33 2026 +0100

    Fix `copy-file` test when using `PROGRAM_{PRE,SUF}FIX`

diff --git a/tests/test-copy-file.scm b/tests/test-copy-file.scm
index 1062429c..112fa732 100644
--- a/tests/test-copy-file.scm
+++ b/tests/test-copy-file.scm
@@ -1,9 +1,12 @@
 (import (chicken file)
         (chicken file posix)
-        (chicken pathname))
+        (chicken pathname)
+        (chicken process-context))
+
+(include "programs-path.scm")

 (delete-file* "csi.copy")
-(let* ((orig-csi (make-pathname ".." "csi"))
+(let* ((orig-csi csi-path)
        (orig-size (file-size orig-csi)))
   (copy-file orig-csi "csi.copy")
   (let ((copy-size (file-size "csi.copy")))

From e9b7ea15778f2e33db42e561b9edb81fc7dd5b38 Mon Sep 17 00:00:00 2001
From: siiky <github-siiky@net-c.cat>
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