inst/tinytest/test_helpers.R

# Odd integer ==================================================================
x <- 2
expect_error(alkahest:::assert_odd(x))

x <- 3
expect_equal(alkahest:::assert_odd(x), x)

# Length =======================================================================
expect_error(alkahest:::assert_length(1:5, 3))
expect_equal(alkahest:::assert_length(1:5, 5), 1:5)

Try the alkahest package in your browser

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

alkahest documentation built on April 3, 2025, 8:52 p.m.