inst/tinytest/test_utils_index.R

In rpahl/container: Extending Base 'R' Lists

# -------------
# .assert_index_and_arg
# -------------
f = container:::.assert_index_and_arg
co = container(1, 2, 3)

expect_error(f(co, 4), "index 4 exceeds length of Container, which is 3")
expect_error(f(1:3, 4), "index 4 exceeds length of numeric, which is 3")
expect_error(f(co, "a"), "index 'a' not found")
expect_error(f(co, 1:2), "index must be of length 1")
expect_error(f(co, NULL), "index must be of length 1")
expect_error(f(co, list(1)))
expect_error(f(co, index = NA), "index must not be 'NA'")


expect_true(f(co, 3))
expect_true(f(c(a = 1), "a"))
expect_true(f(list(a = 1), "a"))
expect_true(f(list(a = 1), "a"))


# ---------------------
# .assert_and_has_index
# ---------------------
f = container:::.assert_and_has_index
co = container(a = 1, 2)

expect_false(f(co, 0))
expect_true(f(co, 1))
expect_true(f(co, 2))
expect_false(f(co, 3))

expect_true(f(co, "a"))
expect_false(f(co, "b"))

expect_error(f(co, list(1)))
expect_error(f(co, index = 1:2), "index must be of length 1")
expect_error(f(co, index = NA), "index must not be 'NA'")


l = list(a = 1, 2)
expect_false(container:::.has_index(l, ""))