inst/tests/testthat/test_check.R

library(phuse)

expect_equal(10, 10)

s1 <- "Testing is fun!"
expect_match(s1, "Testing")

a <- list(1:10, letters)
expect_output(str(a), "List of 2")
expect_output(str(a), "int [1:10]", fixed = TRUE)

Try the phuse package in your browser

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

phuse documentation built on March 26, 2020, 6:31 p.m.