tests/testthat/test_classes.r

In R-fred/resqlite:

context("classes")

test_that("Create class", {
  obj <- new(Class = "SQLiteConn")
  expect_equal(object = class(obj)[[1]], expected = "SQLiteConn")
})

test_that("Create class", {
  obj <- NewSQLiteConnection(path = "tests/testthat/test_create_db.sqlite")
  expect_equal(object = class(obj)[[1]], expected = "SQLiteConn")
  expect_equal(obj@path = "tests/testthat/test_create_db.sqlite")
  expect_true(is.character(obj@binary))
  expect_true(is.character(obj@db_path))

})