blob: 4a2a7ea1bf31d6b2fd92a8d0ddf66b1f59838bff (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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)
|
