test_that("credentials_app_default_path(), default, non-Windows", { withr::local_envvar(c( GOOGLE_APPLICATION_CREDENTIALS = NA, CLOUDSDK_CONFIG = NA, APPDATA = NA, SystemDrive = NA )) with_mock( is_windows = function() FALSE, { expect_equal( credentials_app_default_path(), path_home(".config", "gcloud", "application_default_credentials.json") ) } ) }) test_that("credentials_app_default_path(), default, Windows", { withr::local_envvar(c( GOOGLE_APPLICATION_CREDENTIALS = NA, CLOUDSDK_CONFIG = NA, APPDATA = NA, SystemDrive = NA )) with_mock( is_windows = function() TRUE, { expect_equal( credentials_app_default_path(), path("C:", "gcloud", "application_default_credentials.json") ) } ) }) test_that("credentials_app_default_path(), system drive, Windows", { withr::local_envvar(c( GOOGLE_APPLICATION_CREDENTIALS = NA, CLOUDSDK_CONFIG = NA, APPDATA = NA, SystemDrive = "D:" )) with_mock( is_windows = function() TRUE, { expect_equal( credentials_app_default_path(), path("D:", "gcloud", "application_default_credentials.json") ) } ) }) test_that("credentials_app_default_path(), APPDATA env var, Windows", { withr::local_envvar(c( GOOGLE_APPLICATION_CREDENTIALS = NA, CLOUDSDK_CONFIG = NA, APPDATA = path("D:", "AppData"), SystemDrive = "D:" )) with_mock( is_windows = function() TRUE, { expect_equal( credentials_app_default_path(), path("D:", "AppData", "gcloud", "application_default_credentials.json") ) } ) }) test_that("credentials_app_default_path(), CLOUDSDK_CONFIG env var", { withr::local_envvar(c( GOOGLE_APPLICATION_CREDENTIALS = NA, CLOUDSDK_CONFIG = path("CLOUDSDK", "path") )) expect_equal( credentials_app_default_path(), path("CLOUDSDK", "path", "application_default_credentials.json") ) }) test_that("credentials_app_default_path(), GOOGLE_APPLICATION_CREDENTIALS env var", { withr::local_envvar(c( GOOGLE_APPLICATION_CREDENTIALS = path("GAC", "path"), CLOUDSDK_CONFIG = path("CLOUDSDK", "path") )) expect_equal( credentials_app_default_path(), path("GAC", "path") ) })
Generated by dwww version 1.15 on Thu Jun 20 14:28:04 CEST 2024.