~ chicken-core (master) /tests/test-copy-file.scm

 1(import (chicken file)
 2        (chicken file posix)
 3        (chicken pathname))
 4
 5(delete-file* "csi.copy")
 6(let* ((orig-csi (make-pathname ".." "csi"))
 7       (orig-size (file-size orig-csi)))
 8  (copy-file orig-csi "csi.copy")
 9  (let ((copy-size (file-size "csi.copy")))
10    (delete-file "csi.copy")
11    (assert (= orig-size copy-size))))