test_that("get_connection() works", {
  for (conn in conns) expect_true(DBI::dbIsValid(conn))
})

test_that("get_connection notifies if connection fails", {
  for (i in 1:100) {
    random_string <- paste(sample(letters, size = 32, replace = TRUE), collapse = "")

    if (dir.exists(random_string)) next

    expect_error(get_connection(drv = RSQLite::SQLite(), dbname = paste0(random_string, "/invalid_path")),
                 regexp = "Could not connect to database:\nunable to open database file")
  }
})

test_that("id() works", { for (conn in conns) { # nolint: brace_linter

  expect_identical(id("test_mtcars"), DBI::Id(table = "test_mtcars"))
  expect_identical(id("test.mtcars"), DBI::Id(schema = "test", table = "mtcars"))

  expect_identical(id("test.mtcars", conn = conn, allow_table_only = FALSE),
                   DBI::Id(schema = "test", table = "mtcars"))
}})

test_that('id() returns table = "schema.table" if schema does not exist', {
  for (conn in conns){
    while (TRUE) {
      schema_name <- paste(sample(letters, size = 16, replace = TRUE), collapse = "")
      if (schema_exists(conn, schema_name)) next

      break
    }

    table_name <- paste(schema_name, "mtcars", sep = ".")

    expect_identical(id(table_name, conn, allow_table_only = TRUE),
                     DBI::Id(table = table_name))

    expect_identical(id(table_name, conn, allow_table_only = FALSE),
                     DBI::Id(schema = schema_name, table = "mtcars"))
  }
})

test_that("id() is consistent for DBI connections", {
  expectation <- id(dplyr::tbl(conn, DBI::Id(schema = "test", table = "mtcars")))
  for (conn in conns) {
    expect_identical(expectation,
                     id.tbl_dbi(dplyr::tbl(
                       conn, DBI::Id(schema = "test", table = "mtcars")
                     )))
  }
})

test_that("close_connection() works", { for (conn in conns) { # nolint: brace_linter

  # ODBC connections require arguments and therefore cannot be used in this test
  if (inherits(conn, "OdbcConnection")) next

  # Identify driver of conn within conn_list
  conn_drv <- purrr::keep(conns, \(.x) identical(.x, conn)) |>
    names() |>
    (\(.) purrr::pluck(conn_list, .))()

  conn2 <- get_driver(conn_drv)

  expect_identical(class(conn), class(conn2))
  expect_true(DBI::dbIsValid(conn2))

  close_connection(conn2)

  expect_false(DBI::dbIsValid(conn2))
  rm(conn2)
}})