test_that("absolute URLs are returned unchanged", {
  absolute_url <- "https://external-api.com/endpoint"
  api_root <- "https://my-api.com/api"
  resolved <- hakaiApi:::resolve_url(absolute_url, api_root)
  expect_equal(resolved, absolute_url)
  
  # Test http URLs too
  http_url <- "http://external-api.com/endpoint"
  resolved_http <- hakaiApi:::resolve_url(http_url, api_root)
  expect_equal(resolved_http, http_url)
})

test_that("resolve_url handles relative URLs and slashes correctly", {
  api_root <- "https://my-api.com/api"
  
  relative_url <- "/path/to/endpoint"
  resolved <- hakaiApi:::resolve_url(relative_url, api_root)
  expect_equal(resolved, "https://my-api.com/api/path/to/endpoint")
  
  relative_url_no_slash <- "path/to/endpoint"
  resolved_no_slash <- hakaiApi:::resolve_url(relative_url_no_slash, api_root)
  expect_equal(resolved_no_slash, "https://my-api.com/api/path/to/endpoint")
})

test_that("resolve_url handles api_root with trailing slashes", {
  api_root_with_slash <- "https://my-api.com/api/"
  relative_url <- "/path/to/endpoint"
  resolved <- hakaiApi:::resolve_url(relative_url, api_root_with_slash)
  expect_equal(resolved, "https://my-api.com/api/path/to/endpoint")

  api_root_multiple_slashes <- "https://my-api.com/api///"
  resolved_multiple <- hakaiApi:::resolve_url(relative_url, api_root_multiple_slashes)
  expect_equal(resolved_multiple, "https://my-api.com/api/path/to/endpoint")
})

test_that("resolve_url handles query parameters correctly", {
  api_root <- "https://my-api.com/api"
  
  # Test relative URL with query parameters
  relative_url <- "/path/to/endpoint?param1=value1&param2=value2"
  resolved <- hakaiApi:::resolve_url(relative_url, api_root)
  expect_equal(resolved, "https://my-api.com/api/path/to/endpoint?param1=value1&param2=value2")
  
  # Test absolute URL with query parameters (should remain unchanged)
  absolute_url <- "https://external-api.com/endpoint?param=value"
  resolved_abs <- hakaiApi:::resolve_url(absolute_url, api_root)
  expect_equal(resolved_abs, absolute_url)
})

test_that("resolve_url handles edge cases", {
  api_root <- "https://my-api.com/api"
  
  # Test empty endpoint
  empty_endpoint <- ""
  resolved_empty <- hakaiApi:::resolve_url(empty_endpoint, api_root)
  expect_equal(resolved_empty, "https://my-api.com/api/")
  
  # Test just a slash
  slash_only <- "/"
  resolved_slash <- hakaiApi:::resolve_url(slash_only, api_root)
  expect_equal(resolved_slash, "https://my-api.com/api/")
})