inst/scripts/vignette.R

In akirocode/testsame: Test the output is the same of before

# vignette:
# setup ----

testsame_setup()

# user code -----

tfun_right <- function(x) {
	sum(x)
}

tfun_wrong <- function(x) {
	sum(x) + 100
}

# test_recording 2 -----

expect_same(tfun_right(x = 1), "tfun(1)", record = TRUE)

# testing -----

expect_same(tfun_right(x = 1), "tfun(1)")
expect_same(tfun_wrong(x = 1), "tfun(1)") # returns error

# read

read_same("tfun(1)")