tests/testthat/test-directions.R

In ptvapi: Access the 'Public Transport Victoria' Timetable API

if (identical(Sys.getenv("NOT_CRAN"), "true")) {
# ---------------------------------------------------------------------------- #
# ---- Define values if they haven't already been defined by another test ---- #
# ---------------------------------------------------------------------------- #
if (!exists("all_routes")) {
  all_routes <- routes()
}

if (!exists("frankston_route_id")) {
  frankston_route_id <- all_routes %>%
    dplyr::filter(route_name == "Frankston") %>%
    pull(route_id)
}
# ---------------------------------------------------------------------------- #

# Testing directions_on_route
# Simply running this functions asserts that column names, etc. are as expected
frankston_directions_on_route <- directions_on_route(
  route_id = frankston_route_id
)
test_that("directions_on_route result has class \"ptvapi\"", {
  expect_s3_class(frankston_directions_on_route, "ptvapi")
})

city_directions <- frankston_directions_on_route %>%
  filter(grepl("City", direction_name, ignore.case = TRUE))

test_that("Frankston train goes to the city", {
  expect_equal(nrow(city_directions), 1)
})

frankston_directions <- frankston_directions_on_route %>%
  filter(grepl("Frankston", direction_name, ignore.case = TRUE))

test_that("Frankston train goes to the city", {
  expect_equal(nrow(frankston_directions), 1)
})

# Testing directions
# We'll run the Frankston -> City direction from above through the directions
# function, and see if we can recover the Frankston route ID.
if (!exists("frankston_route_id")) {
  frankston_route_id <- routes() %>%
    dplyr::filter(route_name == "Frankston") %>%
    pull(route_id)
}

recovering_frankston_direction <- city_directions$direction_id %>%
  directions(direction_id = .) %>%
  filter(
    grepl("Frankston", route_direction_description, ignore.case = TRUE),
    route_id == frankston_route_id
  )

test_that("Frankston route can be recovered with directions call", {
  expect_equal(nrow(recovering_frankston_direction), 1)
  expect_equal(recovering_frankston_direction$route_id, frankston_route_id)
})


# Testing directions with route type
test_that("Frankstain train directions are all train routes", {
  city_train_directions <- city_directions$direction_id %>%
    directions(direction_id = ., route_type = "Train")
  expect_true(
    all(
      grepl(
        "train",
        city_train_directions$route_direction_description,
        ignore.case = TRUE
      )
    )
  )
})
}