tests/testthat/test_atoc.R

In ITSLeeds/UK2GTFS: Converts UK transport timetable datasets to GTFS format

context("Get the example atoc files")
file_path <- file.path(tempdir(),"uk2gtfs_tests")
data_path <- file.path(tempdir(),"uk2gtfs_data")
if(!dir.exists(file_path)){
  dir.create(file_path)
}
if(!dir.exists(data_path)){
  dir.create(data_path)
}

test_that("test atoc data is there", {
  expect_true(dl_example_file(data_path, "atoc"))
  expect_true(file.exists(file.path(data_path, "atoc.zip")))
})

context("Test the main atoc function")

test_that("test atoc2gtfs singlecore", {
  gtfs <- atoc2gtfs(path_in = file.path(data_path,"atoc.zip"),
                    silent = FALSE,

            ncores = 1)

  expect_true(class(gtfs) == "list")
})


context("Test the main atoc function, with different settings")

test_that("test atoc2gtfs singlecore", {
  gtfs <- atoc2gtfs(path_in = file.path(data_path,"atoc.zip"),
                    ncores = 1,
                    locations = "file")
  expect_true(class(gtfs) == "list")
})


context("Test import functions")

unzip(file.path(data_path,"atoc.zip"), exdir = file_path)

# files used
# "example.mca"  "ttisf585.alf" "ttisf585.flf" "ttisf585.msn"

# files ignored
# "ttisf585.ztr" "ttisf585.dat" "ttisf585.set" "ttisf585.tsi"


test_that("test importALF", {
  r1 <- importALF(file.path(file_path,"ttisf585.alf"))
  expect_true(class(r1) == "data.frame")
})

test_that("test importFLF", {
  r1 <- importFLF(file.path(file_path,"ttisf585.flf"))
  expect_true(class(r1) == "data.frame")
})

test_that("test importMSN", {
  r1 <- importMSN(file.path(file_path,"ttisf585.msn"))
  expect_true(class(r1) == "list")
})

test_that("test importFLF", {
  r1 <- importFLF(file.path(file_path,"ttisf585.flf"))
  expect_true(class(r1) == "data.frame")
})


# test_that("test importMCA", {
#   r1 <- importMCA(file.path(file_path,"example.mca"),
#                   full_import = TRUE,
#                   silent = FALSE)
#   expect_true(class(r1) == "list")
# })

unlink(file_path, recursive = TRUE)