tests/testthat/test-db_gis.R

In Metropolitan-Council/councilR: Functions and Templates for the Metropolitan Council

# Can import_from_gis() actually import from the GISLibrary database?

# skip on GH Actions
testthat::skip_on_ci()

# skip if not connected to VPN
testthat::skip_if(
  is.null(curl::nslookup("mc.local"))
)

testthat::skip_if(httr2::secret_has_key("QUHBRb_yoy2RRj59qno8NVXA7mW402xkins"))

testthat::test_that("gis_connection is exported", {
  testthat::expect_true("gis_connection" %in% ls("package:councilR"))
})


testthat::test_that("GIS connection returns connection object", {
  test_conn <- gis_connection(
    uid = httr2::secret_decrypt("QUHBRb_yoy2RRj59qno8NVXA7mW402xkins", "COUNCILR_KEY"),
    pwd = httr2::secret_decrypt("0gEYx8sYRcGetutUMIMMbfBq68homB_GRr0LW2hd", "COUNCILR_KEY")
  )

  testthat::expect_s4_class(test_conn, "Microsoft SQL Server")

  co_test <- DBI::dbGetQuery(test_conn, "SELECT * FROM COUNTIES WHERE CO_NAME = 'ANOKA'")

  testthat::expect_equal(nrow(co_test), 1)

  DBI::dbDisconnect(test_conn)
})




# test return object attributes
testthat::test_that("counties spatial dataset", {
  counties <- import_from_gis(
    uid = httr2::secret_decrypt("QUHBRb_yoy2RRj59qno8NVXA7mW402xkins", "COUNCILR_KEY"),
    pwd = httr2::secret_decrypt("0gEYx8sYRcGetutUMIMMbfBq68homB_GRr0LW2hd", "COUNCILR_KEY"),
    query = "GISLibrary.dbo.COUNTIES",
    dbname = "GISLibrary",
    .quiet = TRUE
  )

  # test that all counties are included
  # there should be 7 counties
  testthat::expect_equal(nrow(counties), 7)

  # test that object returned is an sf object
  testthat::expect_equal(class(counties)[[1]], "sf")
})


testthat::test_that("county ctu lookup table", {
  lookup_table <- import_from_gis(
    uid = httr2::secret_decrypt("QUHBRb_yoy2RRj59qno8NVXA7mW402xkins", "COUNCILR_KEY"),
    pwd = httr2::secret_decrypt("0gEYx8sYRcGetutUMIMMbfBq68homB_GRr0LW2hd", "COUNCILR_KEY"),
    query = "GISLibrary.dbo.CountyCTULookupTable",
    dbname = "GISLibrary",
    .quiet = TRUE
  )

  # test that all CTUs are included
  # there should be 220 airports
  testthat::expect_equal(nrow(lookup_table), 220)

  # test that object returned is an sf object
  testthat::expect_equal(class(lookup_table)[[1]], "data.frame")
})



testthat::test_that("counties spatial dataset without geometry", {
  counties <- import_from_gis(
    uid = httr2::secret_decrypt("QUHBRb_yoy2RRj59qno8NVXA7mW402xkins", "COUNCILR_KEY"),
    pwd = httr2::secret_decrypt("0gEYx8sYRcGetutUMIMMbfBq68homB_GRr0LW2hd", "COUNCILR_KEY"),
    query = "GISLibrary.dbo.COUNTIES",
    dbname = "GISLibrary",
    geometry = FALSE,
    .quiet = TRUE
  )

  # test that all counties are included
  # there should be 14 counties
  testthat::expect_equal(nrow(counties), 7)
  testthat::expect_equal(ncol(counties), 7)

  # test that object returned is an sf object
  testthat::expect_equal(class(counties)[[1]], "data.frame")
})