test_that("is_url works", {
  expect_true(is_url("https://docs.hubverse.io"))
  expect_false(is_url("www.hubverse.io"))
})

test_that("is_valid_url works", {
  skip_if_offline()
  expect_true(is_valid_url("https://docs.hubverse.io"))
  expect_true(
    is_valid_url(
      "https://hubverse.s3.amazonaws.com/hubutils/testhubs/simple/hub-config/admin.json"
    )
  )
  expect_false(is_valid_url("https://docs.hubverse.io/invalid"))
  expect_false(
    is_valid_url(
      "https://hubverse.s3.amazonaws.com/hubutils/testhubs/simple/random-file"
    )
  )
})

test_that("create_s3_url works", {
  skip_if_offline()
  skip_if_not(arrow::arrow_with_s3())

  expect_equal(
    create_s3_url(
      base_fs = "hubverse/hubutils/testhubs/simple/",
      base_path = "hub-config/admin.json"
    ),
    "https://hubverse.s3.amazonaws.com/hubutils/testhubs/simple/hub-config/admin.json"
  )

  hub_path <- arrow::s3_bucket("hubverse/hubutils/testhubs/simple/")
  expect_equal(
    create_s3_url(
      base_fs = hub_path$base_path,
      base_path = "hub-config/admin.json"
    ),
    "https://hubverse.s3.amazonaws.com/hubutils/testhubs/simple/hub-config/admin.json"
  )

  config_path <- hub_path$path("hub-config/admin.json")
  # Create a URL from an object of class `<SubTreeFileSystem>` of the path to
  # a config file in an s3 hub
  expect_equal(
    create_s3_url(
      base_fs = config_path$base_fs$base_path,
      base_path = config_path$base_path
    ),
    "https://hubverse.s3.amazonaws.com/hubutils/testhubs/simple/hub-config/admin.json"
  )

  expect_error(
    create_s3_url(
      base_fs = c(
        "hubverse/hubutils/testhubs/simple/",
        "hubverse/hubutils/testhubs/complex/"
      ),
      base_path = "hub-config/admin.json"
    ),
    regexp = "Assertion on 'base_fs' failed: Must have length 1, but has length 2."
  )

  expect_error(
    create_s3_url(
      base_fs = 1L,
      base_path = "hub-config/admin.json"
    ),
    regexp = "Assertion on 'base_fs' failed: Must be of type 'character', not 'integer'."
  )
})

test_that("GitHub utils work", {
  hub_url <- "https://github.com/hubverse-org/example-simple-forecast-hub"
  expect_true(is_github_url(hub_url))
  file_url <- "https://github.com/hubverse-org/schemas/tree/main/v5.0.0"
  expect_true(is_github_url(hub_url))

  expect_false(is_github_url("https://docs.hubverse.io"))
  raw_url <- paste0(
    "https://raw.githubusercontent.com/hubverse-org/",
    "example-simple-forecast-hub/refs/heads/main/hub-config/tasks.json"
  )
  expect_false(is_github_url(raw_url))

  expect_equal(
    convert_to_raw_github_url(hub_url),
    "https://raw.githubusercontent.com/hubverse-org/example-simple-forecast-hub/refs/heads/main"
  )
})

test_that("is_github_repo_url correctly identifies GitHub repo URLs", {
  # Valid GitHub Repo URLs
  expect_true(is_github_repo_url("https://github.com/user/repo"))
  expect_true(is_github_repo_url("https://www.github.com/user/repo"))
  expect_true(is_github_repo_url("http://github.com/user/repo"))
  expect_true(is_github_repo_url("https://github.com/user/repo/")) # With trailing slash

  # Invalid GitHub URLs
  expect_false(is_github_repo_url(
    "https://github.com/user/repo/blob/main/file.txt"
  )) # File path
  expect_false(is_github_repo_url("https://github.com/user/repo/issues/12")) # Issue page
  expect_false(is_github_repo_url(
    "https://raw.githubusercontent.com/user/repo/main/file.txt"
  )) # Raw content
  expect_false(is_github_repo_url("https://gitlab.com/user/repo")) # GitLab repo
  expect_false(is_github_repo_url("github.com/user/repo")) # Missing `https://`
  expect_false(is_github_repo_url("https://github.com/user")) # Only user, no repo
  expect_false(is_github_repo_url("https://github.com/user/repo/extra/path")) # Too many path parts
  expect_false(is_github_repo_url("not_a_url")) # Not a URL at all
})

test_that("is_s3_base_fs correctly detects base file systems", {
  skip_if_not(arrow::arrow_with_s3())
  skip_if_offline()

  hub_path <- arrow::s3_bucket("hubverse/hubutils/testhubs/simple/")
  config_path <- hub_path$path("hub-config/admin.json")
  expect_true(is_s3_base_fs(hub_path))
  expect_false(is_s3_base_fs(config_path))
})

test_that("is_raw_file_url correctly identifies raw content URLs", {
  # Valid raw content URLs
  expect_true(is_raw_file_url(
    "https://raw.githubusercontent.com/user/repo/main/file.txt"
  ))
  expect_true(is_raw_file_url(
    "https://gist.githubusercontent.com/user/123456/raw/file.csv"
  ))
  expect_true(is_raw_file_url(
    "https://my-bucket.s3.amazonaws.com/data/file.json"
  ))
  expect_true(is_raw_file_url("https://example.com/raw/file.png"))
  expect_true(is_raw_file_url("https://gitlab.com/user/repo/raw/main/file.txt"))

  # Invalid (non-raw) URLs
  expect_false(is_raw_file_url("https://www.example.com/page.html"))
  expect_false(is_raw_file_url(
    "https://github.com/user/repo/blob/main/file.txt"
  ))
  expect_false(is_raw_file_url("https://www.example.com/notraw/file.txt"))
  expect_false(is_raw_file_url("not_a_url"))
})