[bugfix] Test files now generated at right location

R/scrape_benchmarks.R

@@ -42,6 +42,12 @@ download_benchmark <- function(prj_url, path) {
     assertthat::assert_that(assertthat::is.string(prj_url))
     assertthat::assert_that(assertthat::is.string(path))
 
+    last_char_index <- length(path)
+
+    if(substring(path, last_char_index, last_char_index) != "/"){
+        path <- paste0(path, "/")
+    }
+
     prj_dest_file <- paste0(path, basename(prj_url))
     file.create(prj_dest_file)
 

tests/testthat/test-generate_functions.R

-

tests/testthat/test-scrape_benchmarks.R

@@ -21,7 +21,7 @@ test_that("download_benchmark works", {
                          "flow_no_strain.prj"),
         path = path)
 
-    expect_equal(file.exists(paste0(path, "flow_no_strain.prj")), TRUE)
+    expect_equal(file.exists(paste0(path, "/flow_no_strain.prj")), TRUE)
 
     do.call(file.remove, list(list.files(path, full.names = TRUE)))
 })
\ No newline at end of file