diff --git a/R/scrape_benchmarks.R b/R/scrape_benchmarks.R
index a0cc82579ecf34c3e664ba3b6343ab7fe0fd8fbd..96556d94772734ddf5c1582bb2d3e83304862e16 100644
--- a/R/scrape_benchmarks.R
+++ b/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)
 
diff --git a/tests/testthat/test-generate_functions.R b/tests/testthat/test-generate_functions.R
deleted file mode 100644
index 8b137891791fe96927ad78e64b0aad7bded08bdc..0000000000000000000000000000000000000000
--- a/tests/testthat/test-generate_functions.R
+++ /dev/null
@@ -1 +0,0 @@
-
diff --git a/tests/testthat/test-scrape_benchmarks.R b/tests/testthat/test-scrape_benchmarks.R
index 445ccbe52078df90e9c077af6664cc0bef353ee1..280997ce1e979e5762ae63270c63f9820e475e5a 100644
--- a/tests/testthat/test-scrape_benchmarks.R
+++ b/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