normalize path for comparaison in test (#1196)

cderv · web-flow · commit ae967ee3d4a5 · 2021-07-06T15:15:11.000+02:00
fix tests following afadf50
diff --git a/tests/testthat/test-site.R b/tests/testthat/test-site.R
@@ -1,9 +1,9 @@
 test_that("find_book_proj() correction found the root dir", {
-  book_dir <- local_book()
+  book_dir <- xfun::normalize_path(local_book())
   withr::local_dir(book_dir)
-  expect_equal(normalizePath(find_book_proj(".")), book_dir)
-  expect_equal(normalizePath(find_book_proj("01-Introduction.Rmd")), book_dir)
+  expect_equal(find_book_proj("."), book_dir)
+  expect_equal(find_book_proj("01-Introduction.Rmd"), book_dir)
   gsub("^(site:.*)$", "\\1 # any comment", xfun::read_utf8("index.Rmd"))
   xfun::gsub_file("index.Rmd", pattern = "^(site:.*)$", replacement = "\\1 # any comment")
-  expect_equal(normalizePath(find_book_proj(".")), book_dir)
+  expect_equal(find_book_proj("."), book_dir)
 })
