From d8393619213eda200848bfd086b61428071e5514 Mon Sep 17 00:00:00 2001 From: Dirk Eddelbuettel Date: Fri, 12 Dec 2025 16:16:24 -0600 Subject: [PATCH] Silence three tests following PR #1413 --- ChangeLog | 5 +++++ inst/tinytest/test_system.R | 8 ++++---- 2 files changed, 9 insertions(+), 4 deletions(-) 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")