16 lines
361 B
R
16 lines
361 B
R
clargs <- commandArgs(trailing=TRUE)
|
|
source(file.path(clargs[1], "unittest.R"))
|
|
#source("unittest.R")
|
|
|
|
dyn.load(paste("smart_pointer_templatevariables", .Platform$dynlib.ext, sep=""))
|
|
source("smart_pointer_templatevariables.R")
|
|
cacheMetaData(1)
|
|
|
|
|
|
d = DiffImContainerPtr_D(create(1234, 5678))
|
|
unittest(d$id, 1234)
|
|
|
|
d$id = 4321
|
|
unittest(d$id, 4321)
|
|
|
|
q(save="no")
|