write to tempfile() not local file (#472)

Author: MichaelChirico

tests/testthat/test-file_coverage.R

@@ -1,5 +1,7 @@
 context("file_coverage")
-writeLines(con = "s1",
+s1 <- tempfile()
+t1 <- tempfile()
+writeLines(con = s1,
 "a <- function(x) {
   x + 1
 }
@@ -9,18 +11,18 @@ b <- function(x) {
   else FALSE
 }")
 
-writeLines(con = "t1",
+writeLines(con = t1,
 "a(1)
 a(2)
 a(3)
 b(0)
 b(1)
 b(2)")
 
-on.exit(unlink(c("s1", "t1")))
+on.exit(unlink(c(s1, t1)))
 
 test_that("it works on single files", {
-  cov <- file_coverage("s1", "t1")
+  cov <- file_coverage(s1, t1)
   cov_d <- as.data.frame(cov)
 
   expect_equal(cov_d$functions, c("a", "b", "b", "b"))

tests/testthat/test-memoised.R

@@ -1,10 +1,12 @@
 context("memoised")
-writeLines(con = "s1",
+s1 <- tempfile()
+t1 <- tempfile()
+writeLines(con = s1,
 "a <- memoise::memoise(function(x) {
   x + 1
 })")
 
-writeLines(con = "t1",
+writeLines(con = t1,
 "
 a(1)
 a(1)
@@ -13,10 +15,10 @@ a(1)
 a(2)
 a(3)")
 
-on.exit(unlink(c("s1", "t1")))
+on.exit(unlink(c(s1, t1)))
 
 test_that("it works on Vectorized functions", {
-  cov <- file_coverage("s1", "t1")
+  cov <- file_coverage(s1, t1)
   cov_d <- as.data.frame(cov)
 
   expect_equal(cov_d$functions, "a")

tests/testthat/test-vectorized.R

@@ -1,18 +1,20 @@
 context("Vectorize")
-writeLines(con = "s1",
+s1 = tempfile()
+t1 = tempfile()
+writeLines(con = s1,
 'scalar_func <- function(x,y) {
   z <- x + y
 }
 
 vector_func <- Vectorize(scalar_func,vectorize.args=c("x","y"),SIMPLIFY=TRUE)')
 
-writeLines(con = "t1",
+writeLines(con = t1,
 "vector_func(1:10, 2)")
 
-on.exit(unlink(c("s1", "t1")))
+on.exit(unlink(c(s1, t1)))
 
 test_that("it works on Vectorized functions", {
-  cov <- file_coverage("s1", "t1")
+  cov <- file_coverage(s1, t1)
   cov_d <- as.data.frame(cov)
 
   expect_equal(cov_d$functions, "vector_func")