tests/testthat/test_exp.R

In STAT545-UBC-students/hw07-Mengsuper: Convenient Computation of Powers

context("exponential function")

test_that("Input is not numbers", {
    x <- c("Hello", "World")
    expect_match(expo(x), "Please enter numbers")
})

test_that("At least numeric values work.", {
    x <- c(-10, 1, 2, 3)
    expect_equal(expo(x), exp(x))
})

test_that("At least numeric values work.", {
    x <- c(-0.1, 100, -100, 3.5)
    expect_equal(expo(x), exp(x))
})