diff --git a/ChangeLog b/ChangeLog index 300534ae1..0eec376bf 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2025-12-12 Dirk Eddelbuettel + + * inst/tinytest/test_system.R: Wrap suppressMessages() around three + tests for long-obsolete linker and compiler flags + 2025-12-06 Dirk Eddelbuettel * DESCRIPTION (Version, Date): Roll micro version and date diff --git a/inst/tinytest/test_system.R b/inst/tinytest/test_system.R index 83a99e05f..982a3856c 100644 --- a/inst/tinytest/test_system.R +++ b/inst/tinytest/test_system.R @@ -1,5 +1,5 @@ -## Copyright (C) 2016 - 2019 Dirk Eddelbuettel +## Copyright (C) 2016 - 2025 Dirk Eddelbuettel ## ## This file is part of Rcpp. ## @@ -24,9 +24,9 @@ inc_sys <- tools::file_path_as_absolute( base::system.file("include", package = expect_equal(inc_rcpp, inc_sys, info = "Rcpp.system.file") # test.RcppLd <- function() { -expect_true(Rcpp:::RcppLdPath() == "", info = "RcppLdPath") -expect_true(Rcpp:::RcppLdFlags() == "", info = "RcppLdFlags") -expect_equal(Rcpp:::LdFlags(), NULL, info = "LdFlags") +expect_true(suppressMessages(Rcpp:::RcppLdPath()) == "", info = "RcppLdPath") +expect_true(suppressMessages(Rcpp:::RcppLdFlags()) == "", info = "RcppLdFlags") +expect_equal(suppressMessages(Rcpp:::LdFlags()), NULL, info = "LdFlags") # test.RcppCxx <- function() { expect_true(Rcpp:::canUseCXX0X(), info = "canUseCXX0X")