cannot get call with unwind protection, comment out test

RcppCore · Jul 23, 2022 · fdadbb4 · fdadbb4
1 parent 666fa8c
commit fdadbb4
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/inst/tinytest/test_exceptions.R b/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() {