tests/testthat/test_adjust_arrival_departure.R

In ipeaGIT/gtfs2gps: Converting Transport Data from GTFS Format to GPS-Like Records

test_that("adjust_arrival_departure", {
    poa <- read_gtfs(system.file("extdata/poa.zip", package="gtfs2gps"))

    poa$stop_times[trip_id == "T2-1@1#520" & stop_id == 3608, 
                   arrival_time := data.table::as.ITime("05:21:00", format = "%H:%M:%OS")]
    poa$stop_times[trip_id == "T2-1@1#520" & stop_id == 3564, 
                   departure_time := data.table::as.ITime("05:22:00", format = "%H:%M:%OS")]
    
    poa <- adjust_arrival_departure(poa)

    poa$stop_times[, departure_time := string_to_seconds(departure_time)]
    poa$stop_times[, arrival_time := string_to_seconds(arrival_time)]
    
    poa$stop_times <- poa$stop_times[poa$stop_times[, !is.na(departure_time)], ]        
    
    expect_true(all(poa$stop_times$departure_time >= poa$stop_times$arrival_time + 20))
})