Skip to content
This repository has been archived by the owner on Feb 7, 2024. It is now read-only.

Commit

Permalink
Don't check Libreoffice error string
Browse files Browse the repository at this point in the history
- Fixes tests on macOS
  • Loading branch information
Juholei committed Dec 4, 2023
1 parent 57282b9 commit c0b2c71
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions etp-backend/src/main/clj/solita/etp/service/laskutus.clj
Original file line number Diff line number Diff line change
Expand Up @@ -297,15 +297,15 @@
(xlsx/set-sheet-landscape sheet true)
(xlsx/fill-sheet! xlsx sheet tasmaytysraportti [5000 5000 7000 5000 5000])
(xlsx/save-xlsx xlsx xlsx-path)))
(let [{:keys [exit err] :as sh-result} (libreoffice/run-with-args
(let [{:keys [exit] :as sh-result} (libreoffice/run-with-args
"--convert-to"
"pdf"
(.getName xlsx-file)
:dir
(.getParent xlsx-file))
pdf-exists? (.exists pdf-file)]
(io/delete-file xlsx-path)
(if (and (zero? exit) (str/blank? err) pdf-exists?)
(if (and (zero? exit) pdf-exists?)
pdf-file
(throw (ex-info "Creating tasmaytysraportti PDF failed."
(assoc sh-result
Expand Down

0 comments on commit c0b2c71

Please sign in to comment.