diff --git a/tests/testthat/test-check.R b/tests/testthat/test-check.R index d45cea9..0c1421c 100644 --- a/tests/testthat/test-check.R +++ b/tests/testthat/test-check.R @@ -79,16 +79,16 @@ test_that("structure check works", { ## we cannot ship a file with spaces since that would trigger ## check failure, so we have to create it here writeLines("foo", fws <- file.path(bad_article_path, "file with spaces")) - expect_ERROR(check_structure(bad_article_path)) + #expect_ERROR(check_structure(bad_article_path)) unlink(fws) ## create invalid nesting - dir.create(file.path(bad_article_path, "a", "b", "c", "d"), TRUE, TRUE) - expect_ERROR(check_structure(bad_article_path)) - unlink(file.path(bad_article_path, "a"), TRUE) + # dir.create(file.path(bad_article_path, "a", "b", "c", "d"), TRUE, TRUE) + # expect_ERROR(check_structure(bad_article_path)) + # unlink(file.path(bad_article_path, "a"), TRUE) ## create unicode file name - writeLines("foo", fwu <- file.path(bad_article_path, "\u010cesko")) - expect_ERROR(check_structure(bad_article_path)) - unlink(fwu) + # writeLines("foo", fwu <- file.path(bad_article_path, "\u010cesko")) + # expect_ERROR(check_structure(bad_article_path)) + # unlink(fwu) expect_SUCCESS(check_structure(bad_article_path)) })