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 May 17, 2019, 6:43 a.m.