From af0cf0f29dd0da0a802d6044d597feda78454911 Mon Sep 17 00:00:00 2001 From: Alex Chubaty Date: Thu, 22 Jun 2017 09:09:58 -0600 Subject: [PATCH] TEMPORARY: suppress warnings in cache tests (#5) @eliotmcintire we can revert this once the issue is dealt with in `archivist` --- tests/testthat/test-cache.R | 77 ++++++++++++++++++------------------- 1 file changed, 38 insertions(+), 39 deletions(-) diff --git a/tests/testthat/test-cache.R b/tests/testthat/test-cache.R index 5df8de834..1160a253a 100644 --- a/tests/testthat/test-cache.R +++ b/tests/testthat/test-cache.R @@ -23,25 +23,25 @@ test_that("test file-backed raster caching", { # confirm that the raster has the given tmp filename expect_identical(strsplit(tmpRasterfile, split = "[\\/]"), strsplit(a@file@name, split = "[\\/]")) - aa <- Cache(randomPolyToDisk, tmpdir, tmpRasterfile, cacheRepo = tmpdir, userTags = "something2") + aa <- suppressWarnings(Cache(randomPolyToDisk, tmpdir, tmpRasterfile, cacheRepo = tmpdir, userTags = "something2")) # Test clearCache by tags expect_equal(NROW(showCache(tmpdir)), 9) - clearCache(tmpdir, userTags = "something$") + suppressWarnings(clearCache(tmpdir, userTags = "something$")) expect_equal(NROW(showCache(tmpdir)), 9) - clearCache(tmpdir, userTags = "something2") + suppressWarnings(clearCache(tmpdir, userTags = "something2")) expect_equal(NROW(showCache(tmpdir)), 0) - aa <- Cache(randomPolyToDisk, tmpdir, tmpRasterfile, cacheRepo = tmpdir, userTags = "something2") + aa <- suppressWarnings(Cache(randomPolyToDisk, tmpdir, tmpRasterfile, cacheRepo = tmpdir, userTags = "something2")) expect_equal(NROW(showCache(tmpdir)), 9) - clearCache(tmpdir, userTags = c("something$", "testing$")) + suppressWarnings(clearCache(tmpdir, userTags = c("something$", "testing$"))) expect_equal(NROW(showCache(tmpdir)), 9) - clearCache(tmpdir, userTags = c("something2$", "testing$")) + suppressWarnings(clearCache(tmpdir, userTags = c("something2$", "testing$"))) expect_equal(NROW(showCache(tmpdir)), 9) - clearCache(tmpdir, userTags = c("something2$", "randomPolyToDisk$")) + suppressWarnings(clearCache(tmpdir, userTags = c("something2$", "randomPolyToDisk$"))) expect_equal(NROW(showCache(tmpdir)), 0) - aa <- Cache(randomPolyToDisk, tmpdir, tmpRasterfile, cacheRepo = tmpdir, userTags = "something2") + aa <- suppressWarnings(Cache(randomPolyToDisk, tmpdir, tmpRasterfile, cacheRepo = tmpdir, userTags = "something2")) # confirm that the raster has the new filename in the cachePath expect_false(identical(strsplit(tmpRasterfile, split = "[\\/]"), @@ -56,7 +56,7 @@ test_that("test file-backed raster caching", { nOT <- Sys.time() for (i in 1:2) { assign(paste0("b", i), system.time( - assign(paste0("a", i), Cache(rasterTobinary, aa, cacheRepo = tmpdir, notOlderThan = nOT)) + assign(paste0("a", i), suppressWarnings(Cache(rasterTobinary, aa, cacheRepo = tmpdir, notOlderThan = nOT))) )) nOT <- Sys.time() - 100 } @@ -67,7 +67,7 @@ test_that("test file-backed raster caching", { # confirm that the second one was obtained through reading from Cache... much faster than writing expect_true(b1[1] > b2[1]) - clearCache(tmpdir) + suppressWarnings(clearCache(tmpdir)) # Check that Caching of rasters saves them to tif file instead of rdata randomPolyToMemory <- function(tmpdir) { @@ -77,11 +77,11 @@ test_that("test file-backed raster caching", { r } - bb <- Cache(randomPolyToMemory, tmpdir, cacheRepo = tmpdir) + bb <- suppressWarnings(Cache(randomPolyToMemory, tmpdir, cacheRepo = tmpdir)) expect_true(filename(bb) == "") expect_true(inMemory(bb)) - bb <- Cache(randomPolyToMemory, tmpdir, cacheRepo = tmpdir) + bb <- suppressWarnings(Cache(randomPolyToMemory, tmpdir, cacheRepo = tmpdir)) expect_true(NROW(showCache(tmpdir)) == 9) # Test that factors are saved correctly @@ -92,7 +92,7 @@ test_that("test file-backed raster caching", { dataType(r) <- "INT1U" r } - bb <- Cache(randomPolyToFactorInMemory, tmpdir, cacheRepo = tmpdir) + bb <- suppressWarnings(Cache(randomPolyToFactorInMemory, tmpdir, cacheRepo = tmpdir)) expect_true(dataType(bb) == "INT1U") expect_true(raster::is.factor(bb)) expect_true(is(raster::levels(bb)[[1]], "data.frame")) @@ -114,7 +114,7 @@ test_that("test file-backed raster caching", { # bb1 has original tmp filename bb1 <- randomPolyToFactorOnDisk(tmpdir, tf) # bb has new one, inside of cache repository, with same basename - bb <- Cache(randomPolyToFactorOnDisk, tmpdir, tmpFile = tf, cacheRepo = tmpdir) + bb <- suppressWarnings(Cache(randomPolyToFactorOnDisk, tmpdir, tmpFile = tf, cacheRepo = tmpdir)) expect_true(dirname(filename(bb)) == file.path(tmpdir, "rasters")) expect_true(basename(filename(bb)) == basename(tf)) expect_false(filename(bb) == tf) @@ -126,7 +126,7 @@ test_that("test file-backed raster caching", { expect_true(NCOL(raster::levels(bb)[[1]]) == 3) expect_true(NROW(raster::levels(bb)[[1]]) == 30) - clearCache(tmpdir) + suppressWarnings(clearCache(tmpdir)) }) test_that("test date-based cache removal", { @@ -139,16 +139,15 @@ test_that("test date-based cache removal", { tmpfile <- normPath(tmpfile) try(clearCache(tmpdir), silent = TRUE) - a <- Cache(runif, 1, cacheRepo = tmpdir) + a <- suppressWarnings(Cache(runif, 1, cacheRepo = tmpdir)) a1 <- showCache(tmpdir) expect_true(NROW(a1) > 0) b <- clearCache(tmpdir, before = Sys.Date() - 1) expect_true(NROW(b) == 0) expect_identical(a1, showCache(tmpdir)) - b <- clearCache(tmpdir, before = Sys.Date() + 1) + b <- suppressWarnings(clearCache(tmpdir, before = Sys.Date() + 1)) expect_identical(b, a1) - }) test_that("test keepCache", { @@ -159,31 +158,31 @@ test_that("test keepCache", { on.exit(unlink(tmpdir, recursive = TRUE), add = TRUE) try(clearCache(tmpdir), silent = TRUE) - Cache(rnorm, 10, cacheRepo = tmpdir) - Cache(runif, 10, cacheRepo = tmpdir) - Cache(round, runif(4), cacheRepo = tmpdir) + suppressWarnings(Cache(rnorm, 10, cacheRepo = tmpdir)) + suppressWarnings(Cache(runif, 10, cacheRepo = tmpdir)) + suppressWarnings(Cache(round, runif(4), cacheRepo = tmpdir)) expect_true(NROW(showCache(tmpdir)) == 24) expect_true(NROW(showCache(tmpdir, c("rnorm","runif"))) == 0) # and search - expect_true(NROW(keepCache(tmpdir, "rnorm")) == 8) + expect_true(NROW(suppressWarnings(keepCache(tmpdir, "rnorm"))) == 8) # do it twice to make sure it can deal with repeats expect_true(NROW(keepCache(tmpdir, "rnorm")) == 8) Sys.sleep(1) st <- Sys.time() Sys.sleep(1) - Cache(sample, 10, cacheRepo = tmpdir) - Cache(length, 10, cacheRepo = tmpdir) - Cache(sum, runif(4), cacheRepo = tmpdir) + suppressWarnings(Cache(sample, 10, cacheRepo = tmpdir)) + suppressWarnings(Cache(length, 10, cacheRepo = tmpdir)) + suppressWarnings(Cache(sum, runif(4), cacheRepo = tmpdir)) showCache(tmpdir, after = st) expect_true(NROW(showCache(tmpdir, before = st)) == 8) - expect_true(NROW(keepCache(tmpdir, before = st)) == 8) + expect_true(NROW(suppressWarnings(keepCache(tmpdir, before = st))) == 8) expect_true(NROW(showCache(tmpdir)) == 8) - ranNums <- Cache(runif, 4, cacheRepo = tmpdir, userTags = "objectName:a") - ranNums <- Cache(rnorm, 4, cacheRepo = tmpdir, userTags = "objectName:a") + ranNums <- suppressWarnings(Cache(runif, 4, cacheRepo = tmpdir, userTags = "objectName:a")) + ranNums <- suppressWarnings(Cache(rnorm, 4, cacheRepo = tmpdir, userTags = "objectName:a")) showCache(tmpdir) # shows spades, runif and rnorm objects expect_true(NROW(showCache(tmpdir, userTags = c("spades","rnorm"))) == 0) # shows nothing because object has both spades and rnorm expect_true(length(unique(showCache(tmpdir, userTags = "spades|rnorm")$artifact)) == 2) # "or" search - expect_true(length(unique(keepCache(tmpdir, userTags = "spades|rnorm")$artifact)) == 2) # keep all with spades or rnorm + expect_true(length(unique(suppressWarnings(keepCache(tmpdir, userTags = "spades|rnorm")$artifact))) == 2) # keep all with spades or rnorm expect_true(length(unique(showCache(tmpdir)$artifact)) == 2) # shows spades, runif and rnorm objects }) @@ -213,9 +212,9 @@ test_that("test environments", { # Upper level -- all are same, because values are same, even though all are enviros shortFn <- function(a) sample(a$a) - out <- Cache(shortFn, a = a, cacheRepo = tmpdir) - out2 <- Cache(shortFn, a = b, cacheRepo = tmpdir) - out3 <- Cache(shortFn, a = g, cacheRepo = tmpdir) + out <- suppressWarnings(Cache(shortFn, a = a, cacheRepo = tmpdir)) + out2 <- suppressWarnings(Cache(shortFn, a = b, cacheRepo = tmpdir)) + out3 <- suppressWarnings(Cache(shortFn, a = g, cacheRepo = tmpdir)) expect_true(identical(attributes(out), attributes(out2))) expect_true(identical(attributes(out), attributes(out3))) @@ -228,11 +227,11 @@ test_that("test environments", { i2 <- i i2$d <- as.list(i2$d) - out <- Cache(shortFn, a = a, cacheRepo = tmpdir) - out2 <- Cache(shortFn, a = b, cacheRepo = tmpdir) - out3 <- Cache(shortFn, a = g, cacheRepo = tmpdir) - out4 <- Cache(shortFn, a = i, cacheRepo = tmpdir) - out5 <- Cache(shortFn, a = i2, cacheRepo = tmpdir) + out <- suppressWarnings(Cache(shortFn, a = a, cacheRepo = tmpdir)) + out2 <- suppressWarnings(Cache(shortFn, a = b, cacheRepo = tmpdir)) + out3 <- suppressWarnings(Cache(shortFn, a = g, cacheRepo = tmpdir)) + out4 <- suppressWarnings(Cache(shortFn, a = i, cacheRepo = tmpdir)) + out5 <- suppressWarnings(Cache(shortFn, a = i2, cacheRepo = tmpdir)) expect_false(identical(attributes(out), attributes(out2))) # test different values are different expect_true(identical(attributes(out), attributes(out3))) # test same values but different enviros are same @@ -240,7 +239,7 @@ test_that("test environments", { expect_true(identical(attributes(out), attributes(out5))) # test environment is same as recursive list df <- data.frame(a = a$a, b = LETTERS[1:10]) - out6 <- Cache(shortFn, a = df, cacheRepo = tmpdir) - out7 <- Cache(shortFn, a = df, cacheRepo = tmpdir) + out6 <- suppressWarnings(Cache(shortFn, a = df, cacheRepo = tmpdir)) + out7 <- suppressWarnings(Cache(shortFn, a = df, cacheRepo = tmpdir)) expect_true(identical(attributes(out6), attributes(out7))) # test data.frame })