Work on windows

Author: hadley

tests/testthat/test-oauth.R

@@ -233,10 +233,16 @@ test_that("can override path with env var", {
 })
 
 test_that("inlined legacy path matches rappdirs", {
-  expect_equal(oauth_cache_path_legacy(), rappdirs::user_cache_dir("httr2"))
+  expect_equal(
+    normalizePath(oauth_cache_path_legacy(), mustWork = FALSE),
+    normalizePath(rappdirs::user_cache_dir("httr2"), mustWork = FALSE)
+  )
 })
 
 test_that("legacy path respects R_USER_CACHE_DIR", {
   withr::local_envvar("R_USER_CACHE_DIR" = withr::local_tempdir())
-  expect_equal(oauth_cache_path_legacy(), rappdirs::user_cache_dir("httr2"))
+  expect_equal(
+    normalizePath(oauth_cache_path_legacy(), mustWork = FALSE),
+    normalizePath(rappdirs::user_cache_dir("httr2"), mustWork = FALSE)
+  )
 })