guix_mirror_bot pushed a commit to branch r-team
in repository guix.
commit 6adaacf8b32acfe8ac9f3546334e96644667fa09
Author: Ricardo Wurmus <[email protected]>
AuthorDate: Wed Feb 18 17:15:00 2026 +0100
gnu: r-flextable: Replace custom phase with #:skipped-tests.
* gnu/packages/cran.scm (r-flextable)[arguments]: Remove phase
'disable-bad-tests; provide #:skipped-tests argument.
Change-Id: Ia61deb9513b9d24b38aafa0bed231efd5d7cd362
---
gnu/packages/cran.scm | 39 +++++++++++++++------------------------
1 file changed, 15 insertions(+), 24 deletions(-)
diff --git a/gnu/packages/cran.scm b/gnu/packages/cran.scm
index 139b35cc7a..642eed77c9 100644
--- a/gnu/packages/cran.scm
+++ b/gnu/packages/cran.scm
@@ -27737,30 +27737,21 @@ functions.")
(build-system r-build-system)
(arguments
(list
- #:phases
- '(modify-phases %standard-phases
- (add-after 'unpack 'disable-bad-tests
- (lambda _
- ;; These all fail with: 'write_xml.xml_document(private$doc, file
- ;; = private$filename)`: Error closing file
- (substitute* "tests/testthat/test-as_flextable.R"
- ((".*grouped data structure.*" m)
- (string-append m "skip('skip');\n")))
- (substitute* "tests/testthat/test-link.R"
- ((".*URL are preserved in pptx.*" m)
- (string-append m "skip('skip');\n")))
- (substitute* "tests/testthat/test-pptx-tables.R"
- ((".*(row height is valid|location is correct).*" m)
- (string-append m "skip('skip');\n")))
- (substitute* "tests/testthat/test-rotations.R"
- ((".*pptx rotations.*" m)
- (string-append m "skip('skip');\n")))
- (substitute* "tests/testthat/test-styles.R"
- ((".*borders with office docs are sanitized.*" m)
- (string-append m "skip('skip');\n")))
- (substitute* "tests/testthat/test-text.R"
- ((".*pptx - string are html encoded.*" m)
- (string-append m "skip('skip');\n"))))))))
+ #:skipped-tests
+ ;; These all fail with: 'write_xml.xml_document(private$doc, file
+ ;; = private$filename)`: Error closing file
+ '(("test-as_flextable.R"
+ "grouped data structure")
+ ("test-link.R"
+ "URL are preserved in pptx")
+ ("test-pptx-tables.R"
+ "(row height is valid|location is correct)")
+ ("test-rotations.R"
+ "pptx rotations")
+ ("test-styles.R"
+ "borders with office docs are sanitized")
+ ("test-text.R"
+ "pptx - string are html encoded"))))
(propagated-inputs
(list r-data-table
r-gdtools
