fix: replace test_path with system.file

umg-minai · Jun 9, 2024 · 18217bf · 18217bf
1 parent 54b5887
commit 18217bf
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/tests/testthat/test_read_dltr.R b/tests/testthat/test_read_dltr.R
@@ -4,7 +4,7 @@ test_that("read_dltr throws errors", {
 
 test_that("read_dltr returns a data.table", {
     expect_true(
-        is.data.table(read_dltr(test_path("..", "..", "inst", "logbook.txt")))
+        is.data.table(read_dltr(system.file("logbook.txt", package = "dltr")))
     )
 })
 
@@ -17,11 +17,11 @@ test_that("is_trends_file throws errors", {
 })
 
 test_that("is_logbook_file works", {
-    expect_true(is_logbook_file(test_path("..", "..", "inst", "logbook.txt")))
-    expect_false(is_logbook_file(test_path("..", "..", "inst", "trends.txt")))
+    expect_true(is_logbook_file(system.file("logbook.txt", package = "dltr")))
+    expect_false(is_logbook_file(system.file("trends.txt", package = "dltr")))
 })
 
 test_that("is_trends_file works", {
-    expect_true(is_trends_file(test_path("..", "..", "inst", "trends.txt")))
-    expect_false(is_trends_file(test_path("..", "..", "inst", "logbook.txt")))
+    expect_true(is_trends_file(system.file("trends.txt", package = "dltr")))
+    expect_false(is_trends_file(system.file("logbook.txt", package = "dltr")))
 })
diff --git a/tests/testthat/test_read_logbook.R b/tests/testthat/test_read_logbook.R
@@ -3,7 +3,7 @@ test_that(".read_logbook throws errors", {
 })
 
 test_that(".read_logbook", {
-    lb <- .read_logbook(test_path("..", "..", "inst", "logbook.txt"))
+    lb <- .read_logbook(system.file("logbook.txt", package = "dltr"))
 
     expect_true(is.data.table(lb))