current_sections <- unique(service_urls$section)

# former current sections
# c(
#   "AM_WARP_MAP", "DG_HiCap", "DG_Viewer", "DG_Well_Driller", "DW_Map_Cached",
#   "DW_Map_Dynamic", "ER_Biotics", "ER_Bird_Breeding_Atlas", "FM_Trout",
#   "LF_DML", "PR_TRAILS", "RR_Sites_Map", "WM_CWD", "WM_LMS", "WM_VPA",
#   "WM_WSHED", "WT_Condition_Viewer", "WT_SWDV", "WT_TMDL", "WY_Lakes_AIS",
#   "WY_PRESTO", "CS_Offices", "DG_Groundwater_Retrieval_Network", "EM_PFAS",
#   "FN_FLEET", "FR_IFFRS", "FR_IFFRS_TRN", "FR_WIGO_MAP", "FR_WIS_BURN",
#   "LF_Master_Planning", "OGW_Beach_Monitoring", "TS_AGOL_STAGING_SERVICES",
#   "WA_Waste", "WM_APIP", "WT_DAM", "WT_SW_PERMIT", "WY_Wastewater",
#   "WY_WETLAND", "DW_Elevation", "DW_Imagery", "DW_Land_Cover",
#   "FR_URBAN_FORESTRY"
# )
trout_services <-
  service_urls |>
  dplyr::filter(section == "FM_Trout") |>
  dplyr::pull(service) |>
  unique()
# c(
#   "FM_TROUT_ANNO_WTM_Ext", "FM_TROUT_HAB_SITES_WTM_Ext",
#   "FM_TROUT_NONDNR_EASEMENTS_WTM_Ext", "FM_TROUT_REGS_WTM_Ext"
# )


test_that("list_sections works appropriately", {
  sections <- list_sections()
  expect_length(sections, length(current_sections))
  expect_equal(sections, current_sections)
})

test_that("list_services works appropriately", {
  services <- list_services(section = "FM_Trout")
  expect_length(services, length(trout_services))
  expect_equal(services, trout_services)
})

test_that("list_layers works appropriately", {
  trout_anno_layers <- c(
    "X10330.FM_TROUT_LABELS_AN_500K",
    "Annotation Class 1"
  )
  trout_anno_layers_df <- data.frame(
    section = "FM_Trout",
    service = "FM_TROUT_ANNO_WTM_Ext",
    layer = c("X10330.FM_TROUT_LABELS_AN_500K", "Annotation Class 1"),
    stringsAsFactors = FALSE
  )
  layers <- list_layers(services = trout_services[1])
  layers_df <- list_layers(services = trout_services[1], pull = FALSE)
  expect_length(layers, 2)
  expect_equal(layers, trout_anno_layers)
  expect_equal(layers_df, trout_anno_layers_df)
  expect_warning(list_layers())
})

test_that("list_urls works appropriately", {
  trout_anno_urls <- list_urls(services = trout_services[1])
  trout_anno2_url <- paste0(
    "https://dnrmaps.wi.gov/arcgis/rest/services/FM_Trout/",
    "FM_TROUT_NONDNR_EASEMENTS_WTM_Ext/MapServer/0"
  )
  expect_length(trout_anno_urls, 2)
  expect_equal(list_urls(services = trout_services[3]), trout_anno2_url)
  expect_true(nrow(list_urls(services = trout_services[1], pull = FALSE)) == 2)
  expect_true(ncol(list_urls(services = trout_services[1], pull = FALSE)) == 5)
})

test_that("match_sections works appropriately", {
  expect_equal(match_sections("trout"), "FM_Trout")
  expect_length(match_sections("WT"), 5)
  expect_equal(match_sections("FR_IFFRS", exact = TRUE), "FR_IFFRS")
})

test_that("match_services works appropriately", {
  exp_fish_match <-
    grep("Fish", service_urls$service, ignore.case = TRUE, value = TRUE) |>
    unique() |>
    length()
  expect_length(match_services("Fish"), exp_fish_match)
  exp_wt_fish_match <-
    service_urls |>
    dplyr::filter(
      grepl("WT", section),
      grepl("Fish", service, ignore.case = TRUE)
    ) |>
    dplyr::pull(service) |>
    unique()
  expect_equal(
    match_services("Fish", sections = match_sections("WT")),
    exp_wt_fish_match
  )
  lc_service <- "EN_Land_Cover2_Lev4"
  expect_equal(match_services(lc_service, exact = TRUE), lc_service)
})

test_that("match_layers works appropriately", {
  exp_fish_match <-
    service_urls |>
    dplyr::filter(grepl("fish", layer, ignore.case = TRUE)) |>
    dplyr::pull(layer) |>
    unique() |>
    length()
  exp_fish_trout_match <-
    service_urls |>
    dplyr::filter(grepl("fish|trout", layer, ignore.case = TRUE)) |>
    dplyr::pull(layer) |>
    unique() |>
    length()
  expect_length(match_layers("fish"), exp_fish_match)
  expect_length(match_layers("fish|trout"), exp_fish_trout_match)
  expect_equal(match_layers("stream", sections = match_sections("Trout")),
               "Trout Stream Regulations")
  expect_equal(match_layers("Trout Waters", exact = TRUE), "Trout Waters")
})

test_that("argument checking functions return correct warnings", {
  a <- NULL
  b <- NULL
  c <- 3
  d <- 4
  expect_error(check_layer_args(a, b))
  expect_null(check_layer_args(a, b, c))
  expect_error(avoid_duplicate_sf_args(a, b, c, d))
  expect_null(avoid_duplicate_sf_args(a, b, c))
  expect_equal(deparse_arg_names(a, b, c), c("a", "b", "c"))
})

test_that("standardize_county_names works correctly", {
  expect_equal(standardize_county_names("Waushara"), "waushara")
  expect_equal(standardize_county_names("St. Croix"), "st_croix")
  expect_equal(standardize_county_names("Fond du Lac"), "fond_du_lac")
  expect_equal(
    standardize_county_names("Fond du Lac", "ST. CROIX", "wAuShARA"),
    c("fond_du_lac", "st_croix", "waushara")
  )

})