jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

R - Add support for std::vector<std::vector<std::string>>

Browse source 
Closes #2385
This commit is contained in:
William S Fulton 2022-10-17 20:13:32 +01:00
commit d8a0286012
6 changed files with 128 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

28
Examples/test-suite/r/li_std_vector_vector_runme.R Normal file
View file

@ -0,0 +1,28 @@
clargs <- commandArgs(trailing=TRUE)
source(file.path(clargs[1], "unittest.R"))
dyn.load(paste("li_std_vector_vector", .Platform$dynlib.ext, sep=""))
source("li_std_vector_vector.R")
cacheMetaData(1)
v = make_vector_int()
unittest_sequence(v, list(1, 2, 3, 4, 5))
v = make_vector_vector_int()
unittest(length(v), 1)
unittest_sequence(v[[1]], list(1, 2, 3, 4, 5))
v = make_vector_bool()
unittest_sequence(v, list(TRUE, FALSE, FALSE, FALSE, TRUE))
print(v)
v = make_vector_vector_bool()
unittest(length(v), 1)
print(v)
unittest_sequence(v[[1]], list(FALSE, TRUE, TRUE, TRUE, FALSE)) # Does not actually fail if no match, arg, needs fixing
v = make_vector_string()
unittest_sequence(v, list("aa", "bb", "cc", "dd", "ee"))
v = make_vector_vector_string()
unittest(length(v), 1)
unittest_sequence(v[[1]], list("1", "2", "3", "4", "5"))
q(save="no")

13
Examples/test-suite/r/unittest.R
View file

@ -1,8 +1,8 @@
unittest <- function (x,y) {
if (all(x==y)) {
print("PASS")
print("PASS")
} else {
print("FAIL")
print("FAIL")
stop("Test failed")
}
}
@ -15,3 +15,12 @@ unittesttol <- function(x,y,z) {
stop("Test failed")
}
}
unittest_sequence <- function (x,y) {
if (setequal(x, y)) {
print("PASS")
} else {
print("FAIL")
stop("Test failed")
}
}