tests/testthat/test-road-fatal-crash.R

In ropenscilabs/ozroaddeaths: Pulls Data From Australian Road Deaths Database

dat_road_fatal_crash <- oz_road_fatal_crash()

test_that("test that the fatal crash dimensions are stable", {
  expect_snapshot(dim(dat_road_fatal_crash))
})

test_that("test names of fatal crash are the same", {
  expect_snapshot(names(dat_road_fatal_crash))
})

test_that("Data frame has correct column classes", {
  expect_snapshot(classes(dat_road_fatal_crash))
})