From ecb0a0609386ea9acaa5db617215dff8cf890ef6 Mon Sep 17 00:00:00 2001
From: Chantel Wetzel <chantelwetzel@noaa.gov>
Date: Tue, 23 Aug 2022 11:43:30 -0700
Subject: [PATCH] fix: correct wd

---
 tests/testthat/test-runs.R | 22 ++++++++--------------
 1 file changed, 8 insertions(+), 14 deletions(-)

diff --git a/tests/testthat/test-runs.R b/tests/testthat/test-runs.R
index c6ce122..1857c2e 100644
--- a/tests/testthat/test-runs.R
+++ b/tests/testthat/test-runs.R
@@ -1,24 +1,18 @@
 ### automated tests of nwfscDiag package
-# This is the directory where I want the tests to specifically run
-#setwd("C:/Users/Chantel.Wetzel/Documents/GitHub/nwfscDiag/tests") 
-setwd("/test-runs-output")
-#exe_path <- "C:/Users/Chantel.Wetzel/Documents/GitHub/nwfscDiag/inst/extdata"
+#
 # pak::pak() to make sure all dependencies are loaded <- did not work on my machine
 # devtools::test()
-
-dir.create(getwd(), "test-runs-output", showWarnings = TRUE)
-tmp_path <- file.path(getwd(), "test-runs-output")
+#
+# This is the directory where I want the tests to specifically run
+#setwd("C:/Users/Chantel.Wetzel/Documents/GitHub/nwfscDiag/tests") 
+tmp_path <- file.path("/test-runs-output")
+dir.create(tmp_path, "test-runs-output", showWarnings = TRUE)
 
 # Location where the simple model is saved in the package
-example_path <- system.file("extdata", package = "nwfscDiag")
-file.copy(example_path, tmp_path, recursive = TRUE)
-# runs_path avoids repeated use of "extdata" that would have to be added
-# if using tmp_path directly
-runs_path <- file.path(tmp_path, "extdata")
-#file.copy(file.path(runs_path, "ss.exe"), file.path(runs_path, "simple", "ss.exe"))
+runs_path <- system.file("extdata", package = "nwfscDiag")
 
 # clean up (Comment out this if  you want to keep the files created by the tests)
-# on.exit(unlink(tmp_path, recursive = TRUE))
+on.exit(unlink(tmp_path, recursive = TRUE))
 
 test_path <- file.path(runs_path, "simple")
 skip_test <- TRUE