dwww Home | Show directory contents | Find package

context("getFirstLast")

test_that("getFirstLast", {
  expect_equal(getFirst(1:3), 1L)
  expect_equal(getLast(1:3), 3L)
  expect_equal(getFirst(list(iris, 1)), iris)
  expect_equal(getLast(list(iris, 1)), 1)

  expect_equal(getFirst(c(a=1, 2)), 1)
  expect_equal(names(getFirst(c(a=1, 2))), NULL)
  expect_equal(getLast(c(a=1, 2)), 2)
  expect_equal(names(getLast(c(a=1, 2))), NULL)
})

Generated by dwww version 1.15 on Sun Jun 16 19:47:53 CEST 2024.