tests/testthat/test-caf_main.R

In rappster/cachefun: Functions with built-in cache

library(testthat)

# Basics ------------------------------------------------------------------

context("Cache-aware functions: Basics")

test_that("20180204-1: caf: initial", {
  fun <- function(x) sprintf("hello %s!", x)
  expect_is(caf <- caf_create(fun = fun), "function")

  x_1 <-  "world"
  x_2 <-  "WORLD"

  expectation <- "hello world!"
  expect_identical(caf(x = x_1), expectation)
  expect_identical(caf(x = x_2, .refresh = FALSE), expectation)

  expectation <- "hello WORLD!"
  expect_identical(caf(x = x_2), expectation)
  expect_identical(caf(x = x_1, .refresh = FALSE), expectation)
})

test_that("20180205-1: caf: different default args", {
  fun <- function(x) sprintf("hello %s!", x)
  expect_is(caf <- caf_create(fun = fun, .refresh_default = FALSE), "function")

  x_1 <-  "world"
  x_2 <-  "WORLD"

  expectation <- "hello world!"
  expect_identical(caf(x = x_1), expectation)
  expect_identical(caf(x = x_2), expectation)

  expectation <- "hello WORLD!"
  expect_identical(caf(x = x_2, .refresh = TRUE), expectation)
  expect_identical(caf(x = x_1), expectation)
})

# test_that("20180204-2: caf: verbose", {
#   fun <- function() "hello world!"
#   expect_is(caf <- caf_create(fun = fun), "function")
#
#   expectation <- "hello world!"
#   expect_message(
#     expect_identical(caf(fun = fun, .verbose = TRUE), expectation),
#     "Caching result"
#   )
# })

test_that("20180204-3: caf: reset cache", {
  fun <- function(x) rnorm(x)

  caf <- caf_create(fun = fun)

  res <- caf(x = 3600)

  expect_null(caf_reset(caf = caf))
  # expect_null(caf(.refresh = FALSE))
})

# Reactivity --------------------------------------------------------------

context("Cache-aware functions: reactivity")

test_that("20180204-4: reactivity: basic", {
  fun_1 <- function(x) x
  caf_1 <- caf_create(fun = fun_1)

  fun_2 <- function(x, caf_1) {
    caf_1(.refresh = FALSE) + x
  }
  caf_2 <- caf_create(fun = fun_2, caf_1 = caf_1)

  expect_identical(caf_1(x = 10), 10)
  expect_identical(caf_2(x = 50), 60)
  expect_identical(caf_1(x = 100), 100)
  expect_identical(caf_2(x = 200), 300)
})

test_that("20180206-2: reactivity: invalidation", {
  fun_1 <- function(x) x
  caf_1 <- caf_create(fun = fun_1)

  # fun_2 <- function(x, observes) {
  #   reactive(observes$caf_1(.refresh = FALSE) + x)
  # }
  fun_2 <- function(x, observes) {
    observes$caf_1(.refresh = FALSE) + x
  }
  caf_2 <- caf_create(fun = fun_2, observes = list(caf_1 = caf_1))
  fun_2 <- function(x, caf_1) {
    caf_1(.refresh = FALSE) + x
  }
  caf_2 <- caf_create(fun = fun_2, caf_1 = caf_1)

  caf_1(x = 10)
  expect_identical(caf_2(x = 50, .refresh = FALSE), 60)
  expect_identical(caf_2(x = 50), 60)

  caf_1(x = 100)
  expect_identical(caf_2(x = 50, .refresh = FALSE), 150)
  expect_identical(caf_2(x = 200, .refresh = FALSE), 150)
  expect_identical(caf_2(x = 200), 300)
})