tests/testthat/test-discovery.R

In MarkEdmondson1234/googleAuthR: Authenticate and Create Google APIs

# test_that("Can create auto package", {
#   skip_on_cran()
#   tmp <- tempdir()
#   on.exit(unlink(tmp))
#   
#   da1 <- gar_discovery_api("urlshortener","v1")
#   
#   gar_create_package(da1, tmp, check = FALSE, github = FALSE)
#   
#   created_file_dir <- "googleurlshortenerv1.auto"
#   
#   expect_true(created_file_dir %in% list.files(tmp))
#   
#   created_files <- c("DESCRIPTION", 
#                      "googleurlshortenerv1.auto.Rproj", 
#                      "LICENSE", 
#                      "man/AnalyticsSnapshot.Rd", 
#                      "man/AnalyticsSummary.Rd", 
#                      "man/StringCount.Rd", 
#                      "man/url.get.Rd", 
#                      "man/url.insert.Rd", 
#                      "man/url.list.Rd", 
#                      "man/Url.Rd", 
#                      "man/UrlHistory.Rd", 
#                      "man/urlshortener_googleAuthR.Rd", 
#                      "NAMESPACE", 
#                      "R/urlshortener_functions.R", 
#                      "R/urlshortener_objects.R", 
#                      "README.md")
#   
#   actual_files <- list.files(file.path(tmp, "googleurlshortenerv1.auto"), 
#                              recursive = TRUE)
#   
#   expect_true(all(created_files %in% actual_files))
#   
# })
# 
# # test_that("Can create vision package", {
# #   skip_on_cran()
# #   tmp <- tempdir()
# #   on.exit(unlink(tmp))
# #   
# #   da1 <- gar_discovery_api("vision","v1")
# #   
# #   gg <- gar_create_package(da1, tmp, check = TRUE, github = FALSE)
# #   
# #   expect_s3_class(gg, "check_results")
# #   
# # })
# 
# test_that("Name of package is valid",{
#   skip_on_cran()
#   tmp <- tempdir()
#   on.exit(unlink(tmp))
#   
#   da1 <- gar_discovery_api("admin","datatransfer_v1")
#   
#   gg <- gar_create_package(da1, tmp, check = FALSE, github = FALSE)
#   
#   expect_s3_class(gg, "check_results")
#   
# })
# 
# test_that("c unrecognised escape character is avoided",{
#   skip_on_cran()
#   tmp <- tempdir()
#   on.exit(unlink(tmp))
#   
#   da1 <- gar_discovery_api("bigquery","v2")
#   
#   gg <- gar_create_package(da1, tmp, check = FALSE, github = FALSE)
#   
#   expect_s3_class(gg, "check_results")
#   
# })
# 
# test_that("googleservicemanagement is valid",{
#   skip_on_cran()
#   tmp <- tempdir()
#   on.exit(unlink(tmp))
#   
#   da1 <- gar_discovery_api("servicemanagement","v1")
#   
#   gg <- gar_create_package(da1, tmp, check = FALSE, github = FALSE)
#   
#   expect_s3_class(gg, "check_results")
#   
# })