changing root directory on tests.

dark-peak-analytics · Feb 1, 2024 · 62d9ae5 · 62d9ae5
1 parent a24925c
commit 62d9ae5
Showing 1 changed file with 33 additions and 29 deletions.
diff --git a/tests/testthat/test-check_functions.R b/tests/testthat/test-check_functions.R
@@ -1,21 +1,23 @@
 test_that("test no error when running folder function", {
 
-  if (testthat::testing_package() != ""){
-    path <- dirname(dirname(getwd()))
-  }else{
-    path <- getwd()
-  }
+  #if (testthat::testing_package() != ""){
+  #  path <- dirname(dirname(getwd()))
+  #}else{
+  #  path <- getwd()
+  #}
 
     testthat::expect_silent(
       assertHE::tabulate_functions_in_folder(
-        path = path,
+        path = testthat::test_path("."),
+        path_exclude = NULL,
         collapse = T,
         packages_to_exclude = c("base", "stats", "utils")
       )
     )
 
     tmp <- assertHE::tabulate_functions_in_folder(
-      path = path,
+      path = testthat::test_path("."),
+      path_exclude = NULL,
       collapse = T,
       packages_to_exclude = c("base", "stats", "utils")
     )
@@ -25,7 +27,8 @@ test_that("test no error when running folder function", {
 
     testthat::expect_type(
       assertHE::tabulate_functions_in_folder(
-        path = path,
+        path = testthat::test_path("."),
+        path_exclude = NULL,
         collapse = F,
         packages_to_exclude = c("base", "stats", "utils")
       ),
@@ -35,7 +38,8 @@ test_that("test no error when running folder function", {
 
     testthat::expect_type(
       assertHE::tabulate_functions_in_folder(
-        path = path,
+        path = testthat::test_path("."),
+        path_exclude = NULL,
         collapse = F,
         packages_to_exclude = NULL
       ),
@@ -49,24 +53,24 @@ test_that("test no error when running folder function", {
 
 test_that("find_test can identify a test where it exists", {
 
-  if (testthat::testing_package() != ""){
-    path <- dirname(dirname(getwd()))
-  }else{
-    path <- getwd()
-  }
+  #if (testthat::testing_package() != ""){
+  #  path <- dirname(dirname(getwd()))
+  #}else{
+  #  path <- getwd()
+  #}
 
   #if(testthat::testing_package() == ""){
     path_to_test1 <-
       assertHE:::find_test(v_functions = "check_markov_trace",
-                           path = path,
+                           path = testthat::test_path("example_project"),
                            test_path = "tests/testthat")
 
     testthat::expect_length(object = path_to_test1, n = 1)
 
     path_to_test2 <-
       assertHE:::find_test(
         v_functions = c("check_trans_prob_array", "mean"),
-        path = path,
+        path = testthat::test_path("example_project"),
         test_path = "tests/testthat"
       )
 
@@ -87,26 +91,26 @@ test_that("find_test can identify a test where it exists", {
 test_that(
   "tabulate_functions_in_folder_with_tests can identify functions, packages and test locations",
   {
-    if (testthat::testing_package() != "") {
-      path <- dirname(dirname(getwd()))
-    } else{
-      path <- getwd()
-    }
+    # if (testthat::testing_package() != "") {
+    #   path <- dirname(dirname(getwd()))
+    # } else{
+    #   path <- getwd()
+    # }
 
     #if(testthat::testing_package() == ""){
     testthat::expect_silent(
       assertHE:::tabulate_functions_in_folder_with_tests(
-        path = path,
-        path_exclude = "tests/testthat",
+        path = testthat::test_path("example_project"),
+        path_exclude = NULL,
         packages_to_exclude = c("base", "stats", "utils"),
         test_path = "tests/testthat"
       )
     )
 
     testthat::expect_silent(
       assertHE:::tabulate_functions_in_folder_with_tests(
-        path = path,
-        path_exclude = "tests/testthat",
+        path = testthat::test_path("example_project"),
+        path_exclude = NULL,
         packages_to_exclude = NULL,
         test_path = "tests/testthat"
       )
@@ -115,16 +119,16 @@ test_that(
 
     df_tests <-
       assertHE:::tabulate_functions_in_folder_with_tests(
-        path = path,
-        path_exclude = "tests/testthat",
+        path = testthat::test_path("example_project"),
+        path_exclude = NULL,
         packages_to_exclude = c("base", "stats", "utils"),
         test_path = "tests/testthat"
       )
 
     df_tests2 <-
       assertHE:::tabulate_functions_in_folder_with_tests(
-        path = path,
-        path_exclude = "tests/testthat",
+        path = testthat::test_path("example_project"),
+        path_exclude = NULL,
         packages_to_exclude = NULL,
         test_path = "tests/testthat"
       )