tests/testthat/test-math.R

In FastUtils: Fast, Readable Utility Functions

test_that("Bound a Number within a Range", {
    expect_equal(bound(5, 1, 10), 5)
    expect_equal(bound(c(0, 5, 15), 1, 10), c(1, 5, 10))
    expect_equal(bound(1:7, 4, rep(6, 7)), c(4, 4, 4, 4, 5, 6, 6))
    expect_equal(bound(1:7, rep(4, 7), rep(6, 7)), c(4, 4, 4, 4, 5, 6, 6))
})

test_that("Check if a Number is within a Range", {
    expect_equal(isBound(5, 1, 10), TRUE)
    expect_equal(isBound(c(0, 5, 15), 1, 10), c(FALSE, TRUE, FALSE))
})

test_that("Add Two Objects", {
    expect_equal(add(2, 3), 5)
    expect_equal(add("hello", "world"), "helloworld")
})

test_that("Subtract Two Numbers", {
    expect_equal(subtract(5, 3), 2)
})

test_that("Multiply Two Numbers", {
    expect_equal(multiply(2, 3), 6)
})

test_that("Divide Two Numbers", {
    expect_equal(divide(6, 3), 2)
})

test_that("Check if a Number is Even", {
    expect_equal(isEven(4), TRUE)
    expect_equal(isEven(5), FALSE)
})

test_that("Check if a Number is Odd", {
    expect_equal(isOdd(4), FALSE)
    expect_equal(isOdd(5), TRUE)
})