guix_mirror_bot pushed a commit to branch r-team
in repository guix.
commit 12b4c359ba075c84f05b5edd672c593c802e93ef
Author: Ricardo Wurmus <[email protected]>
AuthorDate: Wed Nov 26 20:41:27 2025 +0100
gnu: r-trycatchlog: Adjust for testthat compatibility.
* gnu/packages/cran.scm (r-trycatchlog)[arguments]: Add phase
'testthat-compatibility.
Change-Id: I4ce1676de6b07113aeb772163f698511b5d82bd9
---
gnu/packages/cran.scm | 20 ++++++++++++++++++++
1 file changed, 20 insertions(+)
diff --git a/gnu/packages/cran.scm b/gnu/packages/cran.scm
index ad74e3585a..7f7d9e3a0e 100644
--- a/gnu/packages/cran.scm
+++ b/gnu/packages/cran.scm
@@ -19888,6 +19888,26 @@ regions. Guaranteed to converge to local minimum of
objective function.")
(base32 "0k40a48qzwmardjnkf0h5s5zryivzvdanz61kxdqdfqlil19ma0d"))))
(properties `((upstream-name . "tryCatchLog")))
(build-system r-build-system)
+ (arguments
+ (list
+ #:phases
+ '(modify-phases %standard-phases
+ (add-after 'unpack 'testthat-compatibility
+ (lambda _
+ ;; These tests use the procedure "with_mock", which has been
+ ;; removed from testthat.
+ (substitute* "tests/testthat/test_build_log_output.R"
+ ((".*platform-specific newline works.*" m)
+ (string-append m "skip('skip');\n")))
+ (substitute* "tests/testthat/test_is_windows.R"
+ ((".*conflict in Windows OS recognition throws a warning.*" m)
+ (string-append m "skip('skip');\n")))
+ (substitute* "tests/testthat/test_namespace_hooks.R"
+ ((".*internal package state is initialized.*" m)
+ (string-append m "skip('skip');\n")))
+ (substitute* "tests/testthat/test_platform_functions.R"
+ ((".*OS-specific newlines work.*" m)
+ (string-append m "skip('skip');\n"))))))))
(native-inputs (list r-knitr r-testthat))
(home-page "https://github.com/aryoda/tryCatchLog";)
(synopsis "Advanced tryCatch and try functions")
