tests/testthat/test-parse_train_times_file.R

In richelbilderbeek/gcaer: Interface to GCAE

test_that("use", {
  train_times_filename <- get_gcaer_filename("train_times.csv")
  t <- parse_train_times_file(train_times_filename)
  expect_equal(
    names(t),
    c("epoch", "train_time_sec")
  )
})