argentum_list_organizations handles all sources failing

test_that("argentum_select_organization returns correct organization", {
result <- argentum_select_organization(search = "Org1")
test_that("argentum_select_organization handles no selection", {
test_that("argentum_select_organization handles no matching organizations", {
expect_message(argentum_select_organization(search = "NonExistent"), "No organizations found matching the criteria.")

"argentum_select_organization handles no matching organizations"
"No organizations found matching the criteria."

argentum_select_organization handles no matching organizations

clean_url("https://example.com [WMS]") (`actual`) not equal to "https://example.com" (`expected`).

`actual`:   "https://example.com [WMS]"
`expected`: "https://example.com"

expect_equal(clean_url("   http://example.com   "), "http://example.com")  # Leading and trailing whitespace
expect_equal(clean_url("[WMS]example.com"), "http://example.com")  # Edge case with WMS at the start
expect_equal(clean_url("[WFS] http://example.com"), "http://example.com")  # WFS before valid URL

clean_url("example.com") (`actual`) not equal to "http://example.com" (`expected`).

`actual`:   "example.com"       
`expected`: "http://example.com"

clean_url("example.com [WFS]") (`actual`) not equal to "http://example.com" (`expected`).

`actual`:   "example.com [WFS]" 
`expected`: "http://example.com"

clean_url("[WMS]example.com") (`actual`) not equal to "http://example.com" (`expected`).

`actual`:   "[WMS]example.com"  
`expected`: "http://example.com"

clean_url("[WFS] http://example.com") (`actual`) not equal to "http://example.com" (`expected`).

`actual`:   "[WFS] http://example.com"
`expected`: "http://example.com"