tests/testthat/testthat_availability.r

In mdsumner/manifoldr: Facilities for Manifold System

context("File installation and availability of Manifold")

mapfile <- system.file("extdata", "AreaDrawing.map", package = "manifoldr")
fakefile <- "/home/some/time/BIFF.TREK"

test_that("real file exists", {
  expect_that(file.exists(mapfile), is_true())
})

test_that("fake file does not exist", {
  expect_that(file.exists(fakefile), is_false())
})

test_that("connection is successful", {
    testthat::skip_on_travis()
  if (manifoldr:::checkAvailability()) {
  expect_that(odbcConnectManifold(mapfile), is_a("RODBC"))
  } else {
    expectt_that(failconnect <- odbcConnectManifold(mapfile), testthat::gives_warning("ODBC connection failed"))
    expect_lt(failconnect, 0)
  }
})

test_that("failed connection is graceful", {
  expect_lt(odbcConnectManifold(fakefile), 0)
})


test_that("we can get out a table summary", {
  testthat::skip_on_travis()
  expect_that(manifoldr:::mapcontents(mapfile), is_a("list"))
})

test_that("we can read a drawing table", {
  testthat::skip_on_travis()
  expect_that(manifoldr:::readmfd(mapfile, "Drawing Table"), is_a("data.frame"))
  expect_that(manifoldr:::readmfd(mapfile, "Drawing Table", topol = "line", spatial = TRUE), is_a("SpatialLinesDataFrame"))
})