inst/tinytest/test_addleft.R

In rpahl/container: Extending Base 'R' Lists

ee = expect_equal


# -------------
# addleft.Deque
# -------------
d = deque(1, 2, 3)
ee(add(d, n = 0, n1 = 1), deque(1, 2, 3, n = 0, n1 = 1))
ee(addleft(d, n0 = 0, n1 = 1),
             deque(n1 = 1, n0 = 0, 1, 2, 3))
d_was_not_touched = all.equal(d, as.deque(1:3))
expect_true(d_was_not_touched)

ref_addleft(d, 4)
ee(d, deque(4, 1, 2, 3))