tests/regression-tests.R

library(histry)
stopifnot(inherits(get("evaluate_call", asNamespace("evaluate")), "functionWithTrace"))
evaltracer(FALSE)
stopifnot(!inherits(get("evaluate_call", asNamespace("evaluate")),"functionWithTrace"))
evaltracer(TRUE)
stopifnot(inherits(get("evaluate_call", asNamespace("evaluate")), "functionWithTrace"))
gmbecker/histry documentation built on Nov. 8, 2018, 9:11 a.m.