test_that("database_glance works", {

  expect_message(database_glance("hi"))
  expect_message(database_glance(faithful))

  empty <- suppressMessages(database_glance("hi"))
  expect_equal(nrow(empty), 0)
  expect_equal(ncol(empty), 8)

  test_man <- database_glance(test_database)
  expect_equal(ncol(test_man), 8)
  expect_equal(nrow(test_man), 1)
  expect_equal(names(test_man)[1], "region")
  expect_equal(names(test_man)[5], "native_species")
  expect_equal(typeof(test_man$total_species), "double")

  test_auto <- suppressMessages(download_database(1))

  if (nrow(test_auto != 0)) {
    # for when server responds
    test <- suppressMessages(database_glance(test_auto))

    expect_equal(ncol(test), 8)
    expect_equal(nrow(test), 1)
    expect_equal(names(test)[1], "region")
    expect_equal(names(test)[5], "native_species")
    expect_equal(typeof(test$total_species), "double")
  } else {
    # for when server does not respond
    expect_message(database_glance(test_auto))
  }
})