add printing commands

EvolEcolGroup · Jan 14, 2025 · 9324d8a · 9324d8a
1 parent c254875
commit 9324d8a
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/tests/testthat/test_gen_tibble_versioning.R b/tests/testthat/test_gen_tibble_versioning.R
@@ -21,6 +21,13 @@ test_that("versioning updates correctly through gt_order_loci",{
   expect_true(file.exists(files[1]))
   expect_true(file.exists(files[2]))
 
+  # do the file directories exist?
+  expect_true(dir.exists(dirname(files[1])))
+  expect_true(dir.exists(dirname(files[2])))
+
+  # print the directory
+  print(dirname(files[1]))
+
   # remove extension
   file <- gsub(".bk","",files[2])