tests/testthat/test-catch.R

In butterfly: Verification for Continually Updating Time Series Data

test_that("correct message is fed back", {
  expect_output(
    catch(
      butterflycount$march,
      butterflycount$february,
      datetime_variable = "time"
    ),
    "The following rows are new in"
  )

  expect_output(
    catch(
      butterflycount$march,
      butterflycount$february,
      datetime_variable = "time"
    ),
    "Only these rows are returned"
  )
})

test_that("return dataframe with changed data", {
  df_caught <- catch(
    butterflycount$march,
    butterflycount$february,
    datetime_variable = "time"
  )

  expect_s3_class(
    df_caught,
    "data.frame"
  )
})

test_that("return message when no differences", {
  expect_output(
    catch(
      butterflycount$march,
      butterflycount$february,
      datetime_variable = "time",
      tolerance = 2
    ),
    "There are no differences, so there are no rows to return.
      Did you specify a tolerance that exceeds number of differences?"
  )
})