tests/testthat/test-reactiveSource.r

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

##------------------------------------------------------------------------------
context("reactiveSource/default")
##------------------------------------------------------------------------------

test_that("reactiveSource/default", {

  expect_equal(res <- reactiveSource(id = "x_1", value = 10), 10)
  expect_equal(x_1, 10)
  expect_equal(x_1 <- 20, 20)
  expect_equal(x_1, 20)
  rm("x_1")
  
})

test_that("reactiveSource/overwrite", {

  expect_equal(reactiveSource(id = "x_1", value = 10), 10)
  x_1 <- 20
  expect_equal(reactiveSource(id = "x_1", value = 10, overwrite = FALSE), 20)
  rm("x_1")
  
})

##------------------------------------------------------------------------------
context("reactiveSource/typed")
##------------------------------------------------------------------------------

test_that("reactiveSource/typed/basics", {

  ## Strict = 0 //
  expect_equal(res <- reactiveSource(id = "x_1", value = 10, typed = TRUE), 10)
  expect_equal(x_1, 10)
  expect_equal(x_1 <- "hello world!", "hello world!")
  expect_equal(x_1, 10)
  
  ## Strict = 1 //
  expect_equal(res <- reactiveSource(id = "x_1", value = 10, typed = TRUE,
    strict = 1), 10)
  expect_equal(x_1, 10)
  expect_warning(expect_equal(x_1 <- "hello world!", "hello world!"))
  expect_equal(x_1, 10)
  
  expect_equal(res <- reactiveSource(id = "x_1", value = 10, 
    typed = TRUE, strict = 2), 10)
  expect_error(x_1 <- "hello world!")
  rm("x_1")
  
})

test_that("reactiveSource/typed/advanced", {

  expect_equal(reactiveSource(id = "x_1", typed = TRUE, from_null = FALSE,
                              strict = 2), NULL)
  expect_equal(x_1, NULL)
  expect_error(x_1 <- "hello world!")
  expect_equal(x_1, NULL)
  
  expect_equal(reactiveSource(id = "x_1", value = 10, typed = TRUE, 
    to_null = FALSE, strict = 2), 10)
  expect_equal(x_1, 10)
  expect_error(x_1 <- NULL)
  expect_equal(x_1, 10)
  
  expect_equal(reactiveSource(id = "x_1", value = 10, typed = TRUE, 
    numint = FALSE, strict = 2), 10)
  expect_equal(x_1, 10)
  expect_error(x_1 <- as.integer(10))
  expect_equal(x_1, 10)
  
})

##------------------------------------------------------------------------------
context("reactiveSource/R6")
##------------------------------------------------------------------------------

test_that("reactiveSource/R6", {
  
  require("R6")
  Test <- R6Class(
    classname = "Test",
    portable = TRUE,
    public = list(
      .x = "numeric"
    )
  )
  where <- Test$new()
  expect_equal(res <- reactiveSource(id = ".x", value = 10, where = where), 10)
  expect_equal(where$.x, 10)
  expect_equal(where$.x <- 20, 20)
  expect_equal(where$.x, 20)
  rm(where)
  
})