test_that("tesseract_download works", {
  skip_on_cran()
  expect_no_error(tesseract_download("ron", datapath = tempdir(), model = "fast"))
})

test_that("tesseract_contributed_download works", {
  skip_on_cran()
  expect_warning(tesseract_contributed_download("grc_hist", datapath = tempdir(), model = "fast"))
  if (identical(.Platform$OS.type, "unix") && !identical(Sys.info()[["sysname"]], "Darwin")) {
    expect_warning(warn_on_linux())
  }
})

test_that("tesseract_download fails with bad input", {
  skip_on_cran()
  expect_error(tesseract_download("rou", datapath = tempdir(), model = "fast"))
})