test_that("TODO", {
  expect_equal(2 * 2, 4)
})
# x <- od::od_data_zones
# tmp <- as_polygon_barriers(x)
# tmp <- as_polygon_barriers(sf::st_geometry(x))
# tmp <- as_polygon_barriers(x[,"geometry"])
# x[["name"]] <- sample(x$geo_code, nrow(x), TRUE)
# as_polygon_barriers(x)


# tmp <- as_polygon_barriers(x[,"geometry"])