update test_that tidy_dir to handle dir name updates

r-lib · Mar 26, 2024 · 61893a0 · 61893a0
1 parent 192b7ac
commit 61893a0
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/tests/testthat/test-course.R b/tests/testthat/test-course.R
@@ -112,7 +112,8 @@ test_that("tidy_unzip() deals with different directory names inside zip file", {
   dest <- tidy_unzip(tmp)
 
   found <- path_file(dest)
-  expected <- unzip(test_file("foo-rename.zip"), list=TRUE)$Name
+  foonames <- unzip(test_file("foo-rename.zip"), list=TRUE)$Name
+  expected <- (unique(path_dir(foonames)))
   fs::dir_delete(dest)
 
   expect_identical(found, expected)