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)