tests/testthat/test-events.R

In ppintosilva/congestion18tynewear: What the Package Does (One Line, Title Case)

test_that("events follows an expected structure", {
  expect_true(
    length(metadata) == length(events)
  )

  expected_names <-
    c("nodes", "flows_l", "flows_od", "spatial", "network", "hparams")

  lapply(
    events,
    function(x) names(x) == expected_names
  )
})