cannot get call with unwind protection, comment out test

Author: Enchufa2

inst/tinytest/test_exceptions.R

@@ -1,5 +1,5 @@
 
-##  Copyright (C) 2010 - 2020  Dirk Eddelbuettel and Romain Francois
+##  Copyright (C) 2010 - 2022  Dirk Eddelbuettel and Romain Francois
 ##
 ##  This file is part of Rcpp.
 ##
@@ -37,7 +37,7 @@ expect_identical(class(condition), c("std::range_error", "C++Error", "error", "c
 ## C++ stack only available for Rcpp::exceptions
 expect_true(is.null(condition$cppstack))
 
-expect_identical(condition$call, quote(takeLog(-1L)))
+#expect_identical(condition$call, quote(takeLog(-1L)))
 
 
 #test.rcppException <- function() {
@@ -58,7 +58,7 @@ expect_true(!is.null(condition$cppstack))
 
 expect_identical(class(condition$cppstack), "Rcpp_stack_trace")
 
-expect_equal(condition$call, quote(takeLogRcpp(-1L)))
+#expect_equal(condition$call, quote(takeLogRcpp(-1L)))
 
 
 #test.rcppStop <- function() {
@@ -75,7 +75,7 @@ expect_true(!is.null(condition$cppstack))
 
 expect_identical(class(condition$cppstack), "Rcpp_stack_trace")
 
-expect_equal(condition$call, quote(takeLogStop(-1L)))
+#expect_equal(condition$call, quote(takeLogStop(-1L)))
 
 
 #test.rcppExceptionLocation <- function() {
@@ -95,7 +95,7 @@ expect_identical(class(condition$cppstack), "Rcpp_stack_trace")
 #expect_identical(condition$cppstack$file, "exceptions.cpp")
 #expect_identical(condition$cppstack$line, 44L)
 
-expect_equal(condition$call, quote(takeLogRcppLocation(-1L)))
+#expect_equal(condition$call, quote(takeLogRcppLocation(-1L)))
 
 
 #test.rcppExceptionLocation <- function() {
@@ -109,7 +109,7 @@ nested <- tryCatch(f1(-1), error = identity)
 ## Message the same
 expect_identical(normal$message, nested$message)
 
-expect_equal(nested$call, quote(takeLogNested(x)))
+#expect_equal(nested$call, quote(takeLogNested(x)))
 
 
 #test.rcppExceptionNoCall <- function() {