inst/tinytest/test_is_empty.R

In container: Extending Base 'R' Lists

# ------------------
# is_empty.Container
# ------------------
co = container(1, 2)
expect_false(is_empty(co))
expect_true(is_empty(clear(co)))

# -------------------
# is_empty.dict.table
# -------------------
d = dict.table(a = 1:4, b = 4:1)
expect_false(is_empty(d))
expect_true(is_empty(clear(d)))