test_that("road_get_assemblages() returns the correct data types", {
  # Call the function
  result_all_columns <- road_get_assemblages()
  
  # Check if the column types match the expected types
  expect_equal(class(result_all_columns$locality_id), "character")
  expect_equal(class(result_all_columns$assemblage_id), "integer")
  expect_equal(class(result_all_columns$continent), "character")
  expect_equal(class(result_all_columns$subcontinent), "character")
  expect_equal(class(result_all_columns$country), "character")
  expect_equal(class(result_all_columns$locality_type), "character")
  expect_equal(class(result_all_columns$coord_x), "numeric")
  expect_equal(class(result_all_columns$coord_y), "numeric")
  expect_equal(class(result_all_columns$coordinate_source), "character")
  expect_equal(class(result_all_columns$cultural_period), "character")
  expect_equal(class(result_all_columns$technocomplex), "character")
  expect_equal(class(result_all_columns$assemblage_name), "character")
  expect_equal(class(result_all_columns$category), "character")
  expect_equal(class(result_all_columns$age_min), "integer")
  expect_equal(class(result_all_columns$age_max), "integer")
  expect_equal(class(result_all_columns$is_systematic), "character")
  expect_equal(class(result_all_columns$geolayer), "character")
  expect_equal(class(result_all_columns$archlayer), "character")
  expect_equal(class(result_all_columns$human_remains), "logical")
  expect_equal(class(result_all_columns$paleofauna), "logical")
  expect_equal(class(result_all_columns$archaeology), "logical")
  expect_equal(class(result_all_columns$plant_remains), "logical")
  
  # Check if the result is a data frame and has the expected number of rows 
  # and columns
  expect_s3_class(result_all_columns, "data.frame")
  expect_equal(ncol(result_all_columns), 22)
  expect_true(nrow(road_get_assemblages()) > 0)
})

test_that("road_get_assemblages returns sane age results", {
  # Call the function
  result <- road_get_assemblages()
  
  # Check that the age columns are within the expected range, or NA is allowed
  expect_true(all(is.na(result$age_min) | (result$age_min >= 0 & result$age_min <= 7000000)), 
              info = "Some values in the age_min column are outside the expected range (0 to 7 million), or there are unexpected NAs.")
  
  expect_true(all(is.na(result$age_max) | (result$age_max >= 0 & result$age_max <= 7000000)), 
              info = "Some values in the age_max column are outside the expected range (0 to 7 million), or there are unexpected NAs.")
  
})