unit_tests/custom.R

# custom test functions

is_close <- function(y) {
	function(x) {
		expectation( abs(x-y)/abs(y) <= 1e-3, "isn't close")
	}
}
jarad/spacious documentation built on May 18, 2019, 3:46 p.m.