tests/testthat/test-disk.R

In skubicius/cashmere: Implements disk and memory caching

context("Disk")

test_that("Disk works with empty arguments", {
  disk <- Disk$new(tempdir())

  disk$write("test_file", 1)
  expect_equal(disk$read("test_file"), 1)
  expect_true(disk$exists("test_file"))
  expect_equal(length(disk$list_files()), 1)

  disk$delete("test_file")
  suppressWarnings(expect_error(disk$read("test_file")))
})