tests/testthat/test-app.R

In dbca-wa/turtleviewer: WA Turtle Data Viewer

test_that("inst/app folder exists", {
  
  app_dir <- system.file("app", package = "turtleviewer")
  print(app_dir)
  expect_true(fs::dir_exists(app_dir))
})

test_that("inst/app/www folder exists", {
  
  www_dir <- system.file("app/www", package = "turtleviewer")
  print(www_dir)
  expect_true(fs::dir_exists(www_dir))
})

test_that("inst/odk/media folder exists", {
  
  media_dir <- system.file("odk/media", package = "turtleviewer")
  print(media_dir)
  expect_true(fs::dir_exists(media_dir))
})