tests/testthat/test-lifo.R

In paulponcet/flifo: Don't Get Stuck with Stacks in R

context("Test LIFO stacks")

test_that("a new LIFO stack is empty, is a 'stack' object, 
          and is a 'lifo' object", {
  s <- lifo(max_length = 2)
  expect_true(is.empty(s))
  expect_true(is.stack(s))
  expect_true(is.lifo(s))
  xcopy <- x <- stats::runif(1)
  push(s, x)
  push(s, 7)
  expect_error(push(s, 1)) # max length is reach, stack is full
  expect_identical(7, pop(s))
  expect_identical(xcopy, pop(s))
})