use move tests only if C++11 seen

Author: eddelbuettel

ChangeLog

@@ -1,8 +1,11 @@
+2022-05-25  Dirk Eddelbuettel  <[email protected]>
+
+	* inst/tinytest/test_string.R: Add C++11 conditioning for new unit tests
+
 2022-05-23  Dean Scarff  <[email protected]>
 
-	* inst/include/Rcpp/String.h: Make less copies of strings by adding
-	move semantics and preserving the buffer/SEXP representation when
-	copying
+	* inst/include/Rcpp/String.h: Make less copies of strings via move
+	semantics and preserving the buffer/SEXP representation when copying
 	* inst/include/RcppCommon.h: include <utility> for std::move
 	* inst/tinytest/cpp/String.cpp: Add unit tests
 	* inst/tinytest/test_string.R: Add unit tests

inst/tinytest/test_string.R

@@ -1,5 +1,5 @@
 
-##  Copyright (C) 2012 - 2019  Dirk Eddelbuettel and Romain Francois
+##  Copyright (C) 2012 - 2022  Dirk Eddelbuettel and Romain Francois
 ##
 ##  This file is part of Rcpp.
 ##
@@ -63,21 +63,23 @@ expect_equal( res, target )
 res <- test_ctor("abc")
 expect_identical(res, "abc")
 
-#    test.String.move.ctor <- function() {
-res <- test_move_ctor()
-expect_identical(res, c("", "test"))
+if (Rcpp:::capabilities()[["Full C++11 support"]]) {
+    ##    test.String.move.ctor <- function() {
+    res <- test_move_ctor()
+    expect_identical(res, c("", "test"))
 
-#    test.String.move.std.string.ctor <- function() {
-res <- test_move_std_string_ctor()
-expect_identical(res, "test")
+    ##    test.String.move.std.string.ctor <- function() {
+    res <- test_move_std_string_ctor()
+    expect_identical(res, "test")
 
-#    test.String.move.assignment <- function() {
-res <- test_move_assignment()
-expect_identical(res, c("", "test"))
+    ##    test.String.move.assignment <- function() {
+    res <- test_move_assignment()
+    expect_identical(res, c("", "test"))
 
-#    test.String.move.std.string.assignment <- function() {
-res <- test_move_std_string_assignment()
-expect_identical(res, "test")
+    ##    test.String.move.std.string.assignment <- function() {
+    res <- test_move_std_string_assignment()
+    expect_identical(res, "test")
+}
 
 #    test.push.front <- function() {
 res <- test_push_front("def")