message: interval test
diff: -library(testthat)
  -library(DBI)
  -
  expect_equal_difftime <- function (a, b)
  expect_equal(as.numeric(a, units = "secs"), as.numeric(b, units = "secs"))
  @@ -20,7 +17,6 @@ test_that("we can retrieve an interval", {
  res <- dbGetQuery(con, "SELECT '2021-11-26 12:00:00'::TIMESTAMP - '2021-11-26 12:01:00'::TIMESTAMP i")
  expect_equal_difftime(as.POSIXct('2021-11-26 12:00:00') - as.POSIXct('2021-11-26 12:01:00'), res$i)
  -# res <- dbGetQuery(con, "SELECT NULL::INTERVAL")
  -# print(str(res))
  -# expect_true(is.na(res$i))
  + res <- dbGetQuery(con, "SELECT NULL::INTERVAL i")
  + expect_true(is.na(res$i))
  })
  