tests/testthat/test-map.R

In lbartnik/utilities: Variety of Utils

context("map")

test_that("map assigns names", {
  x <- map(list(a = 1), I)
  expect_named(x, 'a')

  x <- map('a', I)
  expect_named(x, 'a')
})

test_that("imap passes names and values", {
  imap(list(a = 1), function (...) {
    args <- list(...)
    expect_length(args, 2)
    expect_equal(nth(args, 1), 1)
    expect_equal(nth(args, 2), 'a')
  })
})

test_that("imap handles edge cases", {
  expect_length(imap(NULL, print), 0)
})

test_that("not negates", {
  f <- not(is.null)
  expect_false(f(NULL))
  expect_true(f(1))

  f <- not(function(x)identical(x, 1L))
  expect_false(f(1L))
  expect_true(f(2L))
})