tests/testthat/test-make_column.R

In googlesheets4: Access Google Sheets using the Sheets API V4

test_that("resolve_col_type() passes `ctype` other than 'COL_GUESS' through", {
  expect_identical(resolve_col_type("a cell", "COL_ANYTHING"), "COL_ANYTHING")
})

test_that("resolve_col_type() implements coercion DAG for 'COL_GUESS'", {
  input <- c("l", "D")
  expect_identical(resolve_col_type(input, "COL_GUESS"), "COL_LIST")
})

test_that("blank cell doesn't trick resolve_col_type() into guessing COL_LIST", {
  input <- list(
    structure(1, class = c("CELL_BLANK", "SHEETS_CELL")),
    structure(1, class = c("CELL_TEXT", "SHEETS_CELL"))
  )
  expect_identical(resolve_col_type(input, "COL_GUESS"), "CELL_TEXT")
})