1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
|
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)")
|