tests/testthat/test-convert.R

In scan: Single-Case Data Analyses for Single and Multiple Baseline Designs

test_that("main", {
  
  fx <- tempfile()
  fy <- tempfile()
  convert(exampleABC, file = fx)
  convert(exampleABC, inline = TRUE, file = fy)
  
  source(fx)
  x <- study
  source(fy)
  y <- study
  
  expect_equal(x,y)
  
  convert(Leidig2018, file = fx)
  source(fx)
  
  expect_equal(scan:::check_scdf(study), TRUE)
})