5f96d15943
Arrange that destructors of local C++ objects in the wrapper function get run on SWIG_fail (which calls Rf_error() which calls longjmp()). We achieve this by putting almost everything in the function in its own block, and end that right before Rf_error() at which point those destructors will get called.
39 lines
1.1 KiB
R
39 lines
1.1 KiB
R
clargs <- commandArgs(trailing=TRUE)
|
|
source(file.path(clargs[1], "unittest.R"))
|
|
|
|
dyn.load(paste("exception_memory_leak", .Platform$dynlib.ext, sep=""))
|
|
source("exception_memory_leak.R")
|
|
cacheMetaData(1)
|
|
|
|
a <- Foo();
|
|
unittest(Foo_get_count(), 1);
|
|
b <- Foo();
|
|
unittest(Foo_get_count(), 2);
|
|
|
|
# Normal behaviour
|
|
invisible(trigger_internal_swig_exception("no problem", a));
|
|
unittest(Foo_get_count(), 2);
|
|
unittest(Foo_get_freearg_count(), 1);
|
|
# SWIG exception introduced (return new object case).
|
|
result <- tryCatch({
|
|
trigger_internal_swig_exception("null", b);
|
|
}, warning = function(w) {
|
|
# print(" Hum... We received a warning, but this should be an error");
|
|
unittest(1,0);
|
|
}, error = function(e) {
|
|
# print(" Gotcha!");
|
|
unittest(1,1);
|
|
})
|
|
unittest(Foo_get_count(), 2);
|
|
unittest(Foo_get_freearg_count(), 2);
|
|
# SWIG exception introduced (return by value case).
|
|
result <- tryCatch({
|
|
trigger_internal_swig_exception("null");
|
|
}, warning = function(w) {
|
|
# print(" Hum... We received a warning, but this should be an error");
|
|
unittest(1,0);
|
|
}, error = function(e) {
|
|
# print(" Gotcha!");
|
|
unittest(1,1);
|
|
})
|
|
unittest(Foo_get_count(), 2);
|