tests/testthat/test.fastmap2.R

In dipsaus: A Dipping Sauce for Data Analysis and Visualizations

require(testthat)


context('fastmap2')

test_that('fastmap2', {
  map <- fastmap2(missing_default = '')

  expect_equal(map$a, '')
  expect_equal(map[['a']], '')
  expect_equal(map[[1]], '')

  map$a <- 123
  map[1] <- 234

  expect_equal(map$a, 123)
  expect_equal(map[['a']], 123)
  expect_equal(map[[1]], 234)
  expect_equal(map[['1']], 234)

  map[1:10] <- as.list(1:10)
  expect_equal(map[['1']], 1)
  map[1:10] <- 1
  expect_equal(map[['1']], 1)
  expect_equal(map[['2']], 1)

  map[1:10] <- NULL
  expect_null(map[['1']])

  list_to_fastmap2(list(a = NULL), map)
  expect_null(map$a)


})