25 lines
853 B
R
25 lines
853 B
R
clargs <- commandArgs(trailing=TRUE)
|
|
source(file.path(clargs[1], "unittest.R"))
|
|
#source("unittest.R")
|
|
|
|
dyn.load(paste("template_default_arg_overloaded_extend", .Platform$dynlib.ext, sep=""))
|
|
source("template_default_arg_overloaded_extend.R")
|
|
cacheMetaData(1)
|
|
|
|
|
|
|
|
|
|
rs = ResultSet()
|
|
|
|
unittest(rs$go_get_method(0, SearchPoint()), -1)
|
|
unittest(rs$go_get_method(0, SearchPoint(), 100), 100)
|
|
|
|
unittest(rs$go_get_template(0, SearchPoint()), -2)
|
|
unittest(rs$go_get_template(0, SearchPoint(), 100), 100)
|
|
|
|
unittest(rs$over(), "over(int)")
|
|
unittest(rs$over(10), "over(int)")
|
|
unittest(rs$over(SearchPoint()), "over(giai2::SearchPoint, int)")
|
|
unittest(rs$over(SearchPoint(), 10), "over(giai2::SearchPoint, int)")
|
|
unittest(rs$over(T, SearchPoint()), "over(bool, gaia2::SearchPoint, int)")
|
|
unittest(rs$over(T, SearchPoint(), 10), "over(bool, gaia2::SearchPoint, int)")
|