library(jsonlite)
library(httr)


source(file.path(here::here(),"secrets"))
# Create a Bearer token header
headers.default <- add_headers(
  accept = "*/*",
  apikey = token2
)

test_that("get station return something right", 
{
 test=getStationData(start_date="2024-06-24",end_date="2024-08-14",station_id="38269004",headers=headers.default)
 if(!is.null(test)){testthat::expect_length(test,3)}
 else testthat::expect_null(test)
})