tests/testthat/test-clear.r

In decisionpatterns/r-hash: A Hash/Dictionary/Map/Associated Array for R

# test-clear.r

test_that( "clear", {
  
  context('clear')
  
  # if( exists('h') ) rm(h)
  
  h <- hash( letters, 1 )

  h %>% expect_is("hash")
  h %>% length %>% expect_equal(26) 

  clear(h)
  h %>% length %>% expect_equal(0)

  rm(h)
  exists('h') %>% expect_false()
  
})