tests/testthat/test-vos_odbc.R

In virtuoso: Interface to 'Virtuoso' using 'ODBC'

context("Detecting ODBC Drivers")

test_that("We can detect ODBC drivers", {
  skip_on_cran()
  skip_if_not(has_virtuoso())

  path <- virtuoso:::find_odbc_driver()
  expect_is(path, "character")
  expect_true(file.exists(path))
})

test_that("We can find odbcinst.ini file", {
  skip_on_os("solaris")

  path <- virtuoso:::find_odbcinst()
  expect_is(path, "character")
  expect_gt(length(path), 0)
  # Note, if odbcinst -j not available,
  # fallback will returns a path to "~/.odbcinst.ini"
})

test_that("We can generate an odbcinst file", {
  skip_on_os("solaris")

  path <- virtuoso:::vos_odbcinst()
  expect_is(path, "character")
  expect_gt(length(path), 0)
  expect_true(file.exists(path))

  expect_true(virtuoso:::already_set(path))
  virtuoso:::vos_odbcinst(path)
})

test_that("We can detect ODBC drivers in other OSs", {
  skip_on_os("solaris")

  suppressWarnings({ # Ignore warnings from running on other OSs
    path <- virtuoso:::find_odbc_driver("windows")
    expect_is(path, "character")
    path <- virtuoso:::find_odbc_driver("osx")
    expect_is(path, "character")
    path <- virtuoso:::find_odbc_driver("linux")
    expect_is(path, "character")
  })
})