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 April 13, 2018, 2:36 a.m.