`simple_params` (`actual`) not equal to list(...) (`expected`).

`names(actual)` is a character vector ('1')
`names(expected)` is absent

list(code_insee = NULL, code_dep = "123"))
list(code_insee = NULL, code_dep = "12"))
list(code_insee = "12345", code_dep = NULL))
expect_error(process_character_input("123245"),"Character input 'x' must be")
simple_params <- create_params(1, 2, 3, 4, 5, 6, 7, 8, "pci")
list(geom = 1, code_insee = 2, code_dep = 3, code_com = "004",
source_ign = "PCI", `_start` = 0, `_limit` = 500)
multiple_params <- create_params(c(1, 1), c(2, 2), NULL, NULL, NULL, NULL, NULL, NULL, "pci")
#/!\ Again, you have to manually change encoding "UTF-8" to "ISO-8859-1" !
simple_params <- list(list(geom = NULL, code_insee = "29158", code_dep = NULL,
code_com = NULL, section = NULL, numero = NULL, code_arr = NULL,
code_abs = NULL, source_ign = "PCI", `_start` = 0, `_limit` = 500))
res = fetch_data(simple_params[[1]], "commune", F)
dtolerance_params <- list(list(geom = get_geojson(st_buffer(happign:::point, 10000)),
with_mock_dir("fetch_data error no data", {
no_data_params <- list(list(geom = NULL,
code_com =  NULL, section = "0001", numero = NULL, code_arr = NULL,
resp1 = fetch_data(simple_params[[1]], "commune", F)
params <- expand.grid(code_insee = c("29158", "29135"),