add simple test for message()

Author: eddelbuettel

ChangeLog

@@ -2,6 +2,8 @@
 
 	* inst/include/Rcpp/api/meat/message.h: Add wrapper for base::message
 	* inst/include/Rcpp/api/meat/meat.h: Include new file
+	* inst/tinytest/test_misc.R: Simple test
+	* inst/tinytest/cpp/misc.cpp (messageWrapper): Test support
 
 2021-02-23  Dirk Eddelbuettel  <edd@debian.org>
 

inst/tinytest/cpp/misc.cpp

@@ -224,3 +224,8 @@ String testNullableString(Rcpp::Nullable<Rcpp::String> param = R_NilValue) {
   else
     return String("");
 }
+
+// [[Rcpp::export]]
+void messageWrapper(SEXP s) {
+    message(s);
+}

inst/tinytest/test_misc.R

@@ -1,5 +1,5 @@
 
-##  Copyright (C) 2010 - 2019  Dirk Eddelbuettel and Romain Francois
+##  Copyright (C) 2010 - 2021  Dirk Eddelbuettel and Romain Francois
 ##
 ##  This file is part of Rcpp.
 ##
@@ -182,3 +182,7 @@ expect_true(getRcppVersion(devel=TRUE) >= getRcppVersion(devel=FALSE), info="dev
 ## if need be it can be useful to fail to test e.g. the Docker setup
 ## commented out now as we prefer to pass when not debugging ;-)
 # expect_true(FALSE, info="oh noes")
+
+## test that a message is output as is, and a suppressedMessage is not
+expect_equal(capture.output( messageWrapper("ABCdef"), type="message"), "ABCdef")
+expect_equal(capture.output( suppressMessages(messageWrapper("ABCdef")), type="message"), character())