tests/testthat/test-data_cleaner.R

In timelineR: Visualization for Time Series Data

library(testthat)
library(timelineR)
Sys.setenv(TZ="Asia/Kolkata")
context("data_cleaner: check_input_arguments")

teardown({
  unlink("Rplots.pdf")
})

test_that("Check if is sorted", {
  test_df = data.frame(timestamp = as.POSIXct(c("2017-01-01","2017-01-03", "2017-01-02")), 
                       col_1 = c("value1", "value2", "value3"), 
                       col_2 = c("value1", "value2", "value3"))
  expect_output(plot_timeline(test_df), "WARN.*")
})