diff options
Diffstat (limited to 'Examples/test-suite/r/li_std_vector_vector_runme.R')
-rw-r--r-- | Examples/test-suite/r/li_std_vector_vector_runme.R | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/Examples/test-suite/r/li_std_vector_vector_runme.R b/Examples/test-suite/r/li_std_vector_vector_runme.R new file mode 100644 index 000000000..59977c299 --- /dev/null +++ b/Examples/test-suite/r/li_std_vector_vector_runme.R @@ -0,0 +1,29 @@ +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, as.integer(c(1, 2, 3, 4, 5))) + +v = make_vector_vector_int() +unittest(length(v), 1) +unittest_sequence(v[[1]], as.integer(c(1, 2, 3, 4, 5))) + +v = make_vector_bool() +unittest_sequence(v, c(TRUE, FALSE, FALSE, FALSE, TRUE)) +print(v) +v = make_vector_vector_bool() +unittest(length(v), 1) +print(v) +unittest_sequence(v[[1]], c(FALSE, TRUE, TRUE, TRUE, FALSE)) + +v = make_vector_string() +unittest_sequence(v, c("aa", "bb", "cc", "dd", "ee")) +v = make_vector_vector_string() +unittest(length(v), 1) +unittest_sequence(v[[1]], c("1", "2", "3", "4", "5")) + +q(save="no") |