test_that("record examples work", {
  skip_if_offline()
  skip_on_ci()
  broadway <- c(xmin = -73.99011, ymin = 40.755488, xmax = -73.98, ymax = 40.76206)
  buildings <- open_curtain("building", spatial_filter = broadway)
  local_buildings <- record_overture(buildings, tempdir(), overwrite = TRUE)

  expect_gt(dplyr::pull(dplyr::count(local_buildings), n), 0)
})


test_that("collect.overture_call example works", {
  skip_if_offline()
  skip_on_ci()

  bbox <- c(xmin = -120.5, ymin = 35.5, xmax = -120.0, ymax = 36.0)
  lazy_tbl <- open_curtain("building", bbox)
  collected_tbl <- dplyr::collect(lazy_tbl)

  expect_s3_class(collected_tbl, "sf")
  expect_gt(nrow(collected_tbl), 0)
})

test_that("stage_conn and strike_stage examples work", {
  con <- stage_conn()
  expect_s4_class(con, "duckdb_connection")

  strike_stage(con)
  expect_false(DBI::dbIsValid(con))
})

test_that("record_overture example works", {
  skip_if_offline()
  skip_on_ci()

  broadway <- c(xmin = -73.99011, ymin = 40.755488, xmax = -73.98, ymax = 40.76206)
  buildings <- open_curtain("building", spatial_filter = broadway)
  local_buildings <- record_overture(buildings, tempdir(), overwrite = TRUE)

  expect_s3_class(local_buildings, "overture_call")
  expect_gt(dplyr::pull(dplyr::count(local_buildings), n), 0)
})

test_that("snapshot_overture works", {
  skip_if_offline()
  skip_on_ci()

  broadway <- c(xmin = -73.99011, ymin = 40.755488, xmax = -73.98, ymax = 40.76206)
  buildings <- open_curtain("building", spatial_filter = broadway)
  snapshot <- snapshot_overture(buildings)

  expect_s3_class(snapshot, "overture_call")
  expect_gt(dplyr::pull(dplyr::count(snapshot), n), 0)
})

test_that("sf_as_dbplyr example works", {
  con <- duckdb::dbConnect(duckdb::duckdb())
  sf_obj <- sf::st_sf(a = 3, geometry = sf::st_sfc(sf::st_point(1:2)))
  sf_tbl <- sf_as_dbplyr(con, "test", sf_obj)

  expect_s3_class(sf_tbl, "tbl_duckdb_connection")
  expect_equal(dplyr::pull(sf_tbl, a), 3)

  duckdb::dbDisconnect(con)
})

test_that("as_overture example works", {
  skip_if_offline()
  skip_on_ci()

  conn <- stage_conn()
  division <- open_curtain("division", conn = conn, tablename = "test")

  division2 <- dplyr::tbl(conn, "test")
  division2 <- as_overture(division2, "division")

  expect_s3_class(division2, "overture_call")

  strike_stage(conn)
})