tests/testthat/test-getChecksum.r

In rappster/reactr: Reactive object bindings with built-in caching and push functionality

##------------------------------------------------------------------------------
context("getChecksum/basics")
##------------------------------------------------------------------------------

test_that("getChecksum", {

  setReactive(id = "x_1", value = 10)
  expect_equal(getChecksum(id = "x_1"), digest::digest(10))
  setReactive(id = "x_2", value = function() "object-ref: {id: x_1}")
  expect_equal(getChecksum(id = "x_2"), digest::digest(x_1))
  
  ## Clean up //
  rmReactive("x_1")
  rmReactive("x_2")
  
})