test_that("transect_glance works", {

  expect_message(transect_glance("hi"))

  bad <- suppressMessages(transect_glance("hi"))
  expect_equal(nrow(bad), 0)
  expect_equal(ncol(bad), 54)

  test_manual <- transect_glance(test_transect) # manual download
  expect_equal(ncol(test_manual), 54)
  expect_equal(names(test_manual)[9], "fqa_db_region")
  expect_equal(names(test_manual)[13], "custom_fqa_db_name")
  expect_equal(typeof(test_manual$total_mean_c), "double")
  expect_equal(test_manual[[25]], "Transect")

  skip_if_offline()

  test_normal <- download_transect(4492) |>
    transect_glance()  # normal database
  expect_equal(ncol(test_normal), 54)
  expect_equal(nrow(test_normal), 1)
  expect_equal(names(test_normal)[9], "fqa_db_region")
  expect_equal(names(test_normal)[13], "custom_fqa_db_name")
  expect_equal(typeof(test_normal$total_mean_c), "double")

  test_custom <- download_transect(7025) |>
    transect_glance()  # custom database
  expect_equal(ncol(test_custom), 54)
  expect_equal(nrow(test_custom), 1)
  expect_equal(names(test_custom)[9], "fqa_db_region")
  expect_equal(names(test_custom)[13], "custom_fqa_db_name")
  expect_equal(typeof(test_custom$total_mean_c), "double")

  test_omernik <- download_transect(6444) |>
    transect_glance()  # includes omernik classification
  expect_equal(ncol(test_omernik), 54)
  expect_equal(nrow(test_omernik), 1)
  expect_equal(names(test_omernik)[9], "fqa_db_region")
  expect_equal(names(test_omernik)[13], "custom_fqa_db_name")
  expect_equal(typeof(test_omernik$total_mean_c), "double")

})