inst/tinytest/test_clone.R

In rpahl/container: Extending Base 'R' Lists

ee = expect_equal

# ---------------
# clone.Container
# ---------------
co = container(1, 2, mean)
co2 = clone(co)
ee(co2, co)
ref_clear(co)
expect_true(is_empty(co))
expect_false(is_empty(co2))

# ----------------
# clone.dict.table
# ----------------
dit = dict.table(a = 1, b = 2)
dit2 = clone(dit)
ee(dit2, dit)
ref_clear(dit)
expect_true(is_empty(dit))
expect_false(is_empty(dit2))