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

added testcase pointer_reference

Browse source
This commit is contained in:
AndLLA 2022-11-16 20:54:45 +01:00
commit 63821f1bb5
1 changed files with 24 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

24
Examples/test-suite/r/pointer_reference_runme.R Normal file
View file

@ -0,0 +1,24 @@
clargs <- commandArgs(trailing=TRUE)
source(file.path(clargs[1], "unittest.R"))
#source("unittest.R")
dyn.load(paste("pointer_reference", .Platform$dynlib.ext, sep=""))
source("pointer_reference.R")
cacheMetaData(1)
s = Struct_value_get(Struct_pInstance_get())
unittest(s, 10)
ss = Struct(20)
Struct_pInstance_set(ss)
s = Struct_value_get(Struct_pInstance_get())
unittest(s, 20)
s = overloading(1)
unittest(s, 111)
s = overloading(ss)
unittest(s, 222)