Tests on windows. Fix #37

Author: nsheff

tests/testthat/test_all.R

@@ -122,12 +122,16 @@ test_that("option setting works", {
   setCacheBuildDir(tempdir())
   addCacheSearchEnvironment("cacheEnv")
 
+  # Windows uses double slashes, which get consumed weirdly by grep;
+  # This command will replace double slashes with quadruple slashes,
+  # which behave correctly in grep.
+  grep_tempdir = gsub("\\\\", "\\\\\\\\", tempdir())
   # capture output and check
   options_out <- capture_messages(simpleCacheOptions())
 
-  expect_true(grepl(tempdir(), options_out[1]))
-  expect_true(grepl(tempdir(), options_out[2]))
-  expect_true(grepl(tempdir(), options_out[3]))
+  expect_true(grepl(grep_tempdir, options_out[1]))
+  expect_true(grepl(grep_tempdir, options_out[2]))
+  expect_true(grepl(grep_tempdir, options_out[3]))
   expect_true(grepl("cacheEnv", options_out[4]))
 
   # reset the cache search option

tests/testthat/test_cache_lifespan.R

@@ -43,11 +43,11 @@ my_test_that("Cache file is replaced if no lifespan is specified and recreate=TR
   mySimpleCache("testDF", instruction={ buildTestFrame() })
   expect_equal(1, countCacheItems())
   expect_true(file_test("-f", fp))
-  t0 = file.info(fp)$ctime
+  t0 = file.info(fp)$mtime
   Sys.sleep(1)    # Delay so that our time comparison can work.
   mySimpleCache("testDF", recreate=TRUE, instruction={ buildTestFrame() })
   expect_equal(1, countCacheItems())
-  t1 = file.info(fp)$ctime
+  t1 = file.info(fp)$mtime
   expect_true(t1 > t0)
 })
 
@@ -59,10 +59,10 @@ my_test_that("Cache remains unchanged if younger than explicit lifespan", {
   mySimpleCache("testDF", instruction={ buildTestFrame() })
   expect_equal(1, countCacheItems())
   expect_true(file_test("-f", fp))
-  t0 = file.info(fp)$ctime
+  t0 = file.info(fp)$mtime
   mySimpleCache("testDF", lifespan=0.5, instruction={ buildTestFrame() })
   expect_equal(1, countCacheItems())
-  t1 = file.info(fp)$ctime
+  t1 = file.info(fp)$mtime
   expect_true(t1 == t0)
 })
 
@@ -74,11 +74,11 @@ my_test_that("Cache is replaced if older than explicit lifespan", {
   mySimpleCache("testDF", instruction={ buildTestFrame() })
   expect_equal(1, countCacheItems())
   expect_true(file_test("-f", fp))
-  t0 = file.info(fp)$ctime
+  t0 = file.info(fp)$mtime
   Sys.sleep(1)    # Time difference comparison reliability.
   mySimpleCache("testDF", lifespan=0, instruction={ buildTestFrame() })
   expect_equal(1, countCacheItems())
-  t1 = file.info(fp)$ctime
+  t1 = file.info(fp)$mtime
   expect_true(t1 > t0)
 })
 
@@ -90,11 +90,11 @@ my_test_that("Cache is replaced if recreate=TRUE even if cache is fresh", {
   mySimpleCache("testDF", instruction={ buildTestFrame() })
   expect_true(file_test("-f", fp))
   expect_equal(1, countCacheItems())
-  t0 = file.info(fp)$ctime
+  t0 = file.info(fp)$mtime
   Sys.sleep(1)    # Time difference comparison reliability.
   mySimpleCache("testDF", recreate=TRUE, lifespan=0, instruction={ buildTestFrame() })
   expect_equal(1, countCacheItems())
-  t1 = file.info(fp)$ctime
+  t1 = file.info(fp)$mtime
   expect_true(t1 > t0)
 })
 
@@ -104,10 +104,10 @@ my_test_that("simpleCache can pick up option specifying max cache age.", {
   expect_false(file_test("-f", fp))
   mySimpleCache("testDF", instruction={ buildTestFrame() })
   expect_true(file_test("-f", fp))
-  t0 = file.info(fp)$ctime
+  t0 = file.info(fp)$mtime
   Sys.sleep(1)    # Time difference comparison reliability.
   mySimpleCache("testDF", instruction={ buildTestFrame() })
-  t1 = file.info(fp)$ctime
+  t1 = file.info(fp)$mtime
   expect_true(t1 > t0)
 })
 
@@ -117,12 +117,12 @@ my_test_that("Direct lifespan specification is preferred to background option",
   expect_false(file_test("-f", fp))
   mySimpleCache("testDF", instruction={ buildTestFrame() })
   expect_true(file_test("-f", fp))
-  t0 = file.info(fp)$ctime
+  t0 = file.info(fp)$mtime
   Sys.sleep(1)
   mySimpleCache("testDF", instruction={ buildTestFrame() })
   expect_equal(t0, file.info(fp)$ctime)    # Cache is fresh via MAX.CACHE.AGE.
   Sys.sleep(1)    # Time difference comparison reliability.
   mySimpleCache("testDF", lifespan=0, instruction={ buildTestFrame() })
-  t1 = file.info(fp)$ctime
+  t1 = file.info(fp)$mtime
   expect_true(t1 > t0)    # Cache is stale via lifespan.
 })