tests/testthat/test-connections.R

In edgararuiz/connections: Integrates with the 'RStudio' Connections Pane and 'pins'

test_that("DBI methods work", {
  con <- test_connection()
  expect_silent(connection_open(RSQLite::SQLite(), path = ":dbname:"))
  expect_silent(connection_update(con))
  expect_silent(connection_view(con))
})

test_that("Tracking works", {
  expect_error(conn_session_get("not_existing"), "No metadata")
})

test_that("Utils work", {
  expect_equal(
    as_data_frame(x = "a"),
    as.data.frame(x = "a", stringsAsFactors = FALSE)
  )
  expect_true(flat_list(list()))
  expect_false(flat_list(10))
})