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

Added a run test for vector types. Tests creation of a std::vector

Browse source 
from and R vector and transparent conversion of the result.
This commit is contained in:
Richard Beare 2016-03-15 12:15:29 +11:00
commit 351e21bd4a
1 changed files with 15 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

15
Examples/test-suite/r/li_std_vector_runme.R Normal file
View file

@ -0,0 +1,15 @@
clargs <- commandArgs(trailing=TRUE)
source(file.path(clargs[1], "unittest.R"))
dyn.load(paste("li_std_vector", .Platform$dynlib.ext, sep=""))
source("li_std_vector.R")
cacheMetaData(1)
testvec <- c(1, 2, 3)
unittest(half(testvec), testvec/2)
unittest(average(testvec), mean(testvec))
q(save="no")