inst/tinytest/test_utils.R

In lukehannan/lumisc: Miscellaneous Functions to Help With Data Analysis

# Create mock data
data = data.frame(col1 = 1:10, col2 = 11:20)

# %!in% tests
expect_true(is.logical(1 %!in% 1:10))
expect_true(is.logical(NA %!in% 1:10))
expect_true(is.logical(NULL %!in% 1:10))

# get_colref tests
expect_true(is.character(get_colref(data, 1L)))
expect_true(is.character(get_colref(data, 1.5)))
expect_true(is.integer(get_colref(data, "col1")))
expect_error(get_colref(data, TRUE), class = "invalid_type_error")
expect_error(get_colref(data, 3L), class = "invalid_index_error")
expect_error(get_colref(data, "col7"), class = "invalid_index_error")

# lumiscversion tests
expect_true(is.character(lumiscversion()))

# create list tests
expect_true(is.list(create_list(c("test", "names"))))
expect_true(is.list(create_list(c(1, 2))))


# getmode tests
expect_true(is.integer(getmode(1:10)))
expect_true(is.character(getmode(c("a", "b", "c", "a"))))
expect_true(is.character(getmode(c("a", "b", "c", "a"))))
expect_error(getmode(c(TRUE, TRUE, FALSE)), class = "invalid_type_error")