🐛 Migrate binfile tests to the single-arg export-files!

The refactor made v3/export-files! take a single cfg carrying
::bfc/file-ids and ::bfc/output, but six calls in binfile_test
(added by the tokens handling change) still used the old two-arg
form with ::bfc/ids. Move them to the new form, as the rest of
the file already does.

AI-assisted-by: muse-spark-1.3
This commit is contained in:
Andrey Antukh 2026-10-16 18:58:58 +00:00
parent 86bcaa133f
commit 7b47524735

View File

@ -508,9 +508,9 @@
(let [output (tmp/tempfile :suffix ".zip")]
(v3/export-files!
(-> th/*system*
(assoc ::bfc/ids #{(:id file)})
(assoc ::bfc/export-type :detach-libraries))
(io/output-stream output))
(assoc ::bfc/file-ids #{(:id file)})
(assoc ::bfc/export-type :detach-libraries)
(assoc ::bfc/output (io/output-stream output))))
;; Only the file is exported, not the library
(let [manifest (v3/get-manifest th/*system* output)
@ -569,9 +569,9 @@
(v3/export-files!
(-> th/*system*
(assoc ::bfc/ids #{(:id file)})
(assoc ::bfc/export-type :merge-libraries))
(io/output-stream output))
(assoc ::bfc/file-ids #{(:id file)})
(assoc ::bfc/export-type :merge-libraries)
(assoc ::bfc/output (io/output-stream output))))
;; Only the file is exported, not the library
(let [manifest (v3/get-manifest th/*system* output)
@ -645,9 +645,9 @@
(v3/export-files!
(assoc th/*system*
::bfc/ids #{(:id file)}
::bfc/export-type :detach-libraries)
(io/output-stream output))
::bfc/file-ids #{(:id file)}
::bfc/export-type :detach-libraries
::bfc/output (io/output-stream output)))
(let [names (zip-entry-names output)]
(t/is (contains? names (str "files/" (:id file) "/tokens.json")))
@ -696,9 +696,9 @@
(v3/export-files!
(assoc th/*system*
::bfc/ids #{(:id file)}
::bfc/export-type :include-libraries)
(io/output-stream output))
::bfc/file-ids #{(:id file)}
::bfc/export-type :include-libraries
::bfc/output (io/output-stream output)))
(let [files (import-output profile output)
library' (get files (:name library))
@ -733,9 +733,9 @@
(v3/export-files!
(assoc th/*system*
::bfc/ids #{(:id file)}
::bfc/export-type :include-libraries)
(io/output-stream output))
::bfc/file-ids #{(:id file)}
::bfc/export-type :include-libraries
::bfc/output (io/output-stream output)))
(t/is (contains? (zip-entry-names output)
(str "files/" (:id file) "/tokens.json")))
@ -769,9 +769,9 @@
(v3/export-files!
(assoc th/*system*
::bfc/ids #{(:id file)}
::bfc/export-type :include-libraries)
(io/output-stream output))
::bfc/file-ids #{(:id file)}
::bfc/export-type :include-libraries
::bfc/output (io/output-stream output)))
(let [files (import-output profile output)
file-data (:data (get files (:name file)))]