tests/testthat/test-get_datetime.R

library(testthat)
library(FacebookMessageTimes)
library(lubridate)

test_that("date time works", {
  data <-  list(1553509000)
  expect_true( as.character(get_datetime(data)) == "2019-03-25 19:46:40")
})
tobinsouth/FacebookMessageTimes documentation built on June 22, 2019, 12:46 a.m.