Added a small test for subfolders

karthik · Oct 3, 2017 · 7197a9d · 7197a9d
1 parent 4d1bd8c
commit 7197a9d
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/tests/testthat/test-07-drop_ops.R b/tests/testthat/test-07-drop_ops.R
@@ -133,9 +133,13 @@ test_that("drop_exists works correctly", {
   skip_on_cran()
 
   folder_name <- traceless("drop_exists")
+  folder_name2 <- paste0(folder_name, "/", "sub_folder")
   drop_create(folder_name)
+  # This should create a subfolder inside folder_name
+  drop_create(folder_name2)
 
   expect_true(drop_exists(folder_name))
+  expect_true(drop_exists(folder_name2))
   expect_false(drop_exists(traceless("stuffnthings")))
 
   # Now test files inside subfolders