Fix CIs interfering with one another

ryanzomorrodi · Nov 18, 2024 · dd52d0c · dd52d0c
1 parent 40dee39
commit dd52d0c
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 6 deletions.
diff --git a/tests/testthat/helper-setup.R b/tests/testthat/helper-setup.R
@@ -1 +1,2 @@
 sas_username <- "u63378825"
+test_number <- ceiling(runif(1, 0, 10000000)) # helps make sure CI tests don't interfere with one another
diff --git a/tests/testthat/test-io.R b/tests/testthat/test-io.R
@@ -1,6 +1,6 @@
 test_that("uploading files to SAS", {
-  local_path <- "test.sas"
-  sas_path <- paste0("/home/", sas_username, "/test.sas")
+  local_path <- paste0("test", test_number, ".sas")
+  sas_path <- paste("/home", sas_username, local_path, sep = "/")
 
   "no connection + no file"
   expect_error(sas_upload(local_path, sas_path))
@@ -23,8 +23,8 @@ test_that("uploading files to SAS", {
 })
 
 test_that("download files from SAS", {
-  local_path <- "test.sas"
-  sas_path <- paste0("/home/", sas_username, "/test.sas")
+  local_path <- paste0("test", test_number, ".sas")
+  sas_path <- paste("/home", sas_username, local_path, sep = "/")
 
   "no connection + no file"
   expect_error(sas_download(sas_path, local_path))
@@ -50,8 +50,8 @@ test_that("download files from SAS", {
 })
 
 test_that("removing files from SAS", {
-  local_path <- "test.sas"
-  sas_path <- paste0("/home/", sas_username, "/test.sas")
+  local_path <- paste0("test", test_number, ".sas")
+  sas_path <- paste("/home", sas_username, local_path, sep = "/")
 
   "no connection + no file"
   expect_error(sas_remove(sas_path))
Original file line number	Diff line number	Diff line change
		@@ -1 +1,2 @@
		sas_username <- "u63378825"
		test_number <- ceiling(runif(1, 0, 10000000)) # helps make sure CI tests don't interfere with one another