tests/testthat/test-getProject.R

In Nature40/tRackIT: Process data recorded with automatic radio-tracking stations

test_that("Expected output", {
  
  projroot = "H:/projects/repositories/test_project/"
  test<-getProject(projroot = projroot, plot=FALSE)
 nms<-c( "path","tags","stations","epsg","tz") 
 expect_equal(class(getProject(projroot = projroot, plot=FALSE)), class(list()))
 
 expect_equal(names(getProject(projroot = projroot, plot=FALSE)), nms)
 
 expect_error(getProject(projroot = ".", plot=FALSE))
 
 
})