| 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") |