test_that("drive_endpoint(s)() work(s)", {
expect_length(drive_endpoints(), length(.endpoints))
expect_length(drive_endpoints(c(1, 3, 5)), 3)
nms <- names(drive_endpoints())
expect_identical(drive_endpoints(c(1, 3, 5)), drive_endpoints(nms[c(1, 3, 5)]))
expect_identical(drive_endpoints(2)[[1]], drive_endpoint(2))
expect_identical(drive_endpoints(nms[2])[[1]], drive_endpoint(nms[2]))
})
Generated by dwww version 1.15 on Thu May 23 12:41:14 CEST 2024.