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