tests/testthat/test_remove_inactive_records.R

In MVR-GIS/rarr: Risk Analysis Report in R

# Get test data
db_risk <- rarr::db_risk

risk_active <- remove_inactive_records(db_risk, active = TRUE)
risk_inactive <- remove_inactive_records(db_risk, active = FALSE)

# Data frame with no ACTIVE field
db_events <- rarr::db_events
events_active <- remove_inactive_records(db_events)

test_that("check active values", {
  expect_true(length(filter(risk_active, ACTIVE == "No")$ACTIVE) == 0)
  expect_true(length(filter(risk_inactive, ACTIVE == "Yes")$ACTIVE) == 0)
})

test_that("handle table with no ACTIVE field", {
  expect_true(length(db_events$OBJECTID) == length(events_active$OBJECTID))
})

test_that("check errors", {
  expect_error(remove_inactive_records(1, active = TRUE))
  expect_error(remove_inactive_records(risk_table, active = "1"))
})