clargs <- commandArgs(trailing=TRUE)
source(file.path(clargs[1], "unittest.R"))
#source("unittest.R")

dyn.load(paste("template_class_reuse_name", .Platform$dynlib.ext, sep=""))
source("template_class_reuse_name.R")
cacheMetaData(1)





Bool1()$tt()
Bool1False()$ff()

Bool2()$tt()
Bool2False()$ff()

Bool3()$tt()
Bool3False()$ff()

Bool4()$tt()
Bool4False()$ff()


BoolForward1()$tt()
BoolForward1False()$ff()

BoolForward2()$tt()
BoolForward2False()$ff()

BoolForward3()$tt()
BoolForward3False()$ff()

BoolForward4()$tt()
BoolForward4False()$ff()


IntBool1()$tt()
IntBool1False()$ff()

IntBool2()$tt()
IntBool2False()$ff()

IntBool3()$tt()
IntBool3False()$ff()

IntBool4()$tt()
IntBool4False()$ff()

Duplicate2_0_n(Duplicate2_0())
Duplicate3_n(Duplicate3())