inst/tinytest/test_equivalence.R

library(tinytest)
tinytest::using(ttdo)

notiris <- iris
notiris[2,3] <- 42

expect_false( expect_equal_with_diff(iris, notiris) )
expect_false( expect_equivalent_with_diff(iris, notiris) )

Try the ttdo package in your browser

Any scripts or data that you put into this service are public.

ttdo documentation built on March 7, 2023, 5:27 p.m.