tests/testthat/testDb.R

In bobjansen/mattR: mattR is a simple web framework for R

context("Database")

test_that("Connecting to the database works", {
  con <- createConnection()
  on.exit(DBI::dbDisconnect(con))
  expect_true(is(con, "SQLiteConnection"))
})

test_that("Setting up the database works", {
  con <- setupDatabase()
  on.exit(DBI::dbDisconnect(con))
  dbTables <- DBI::dbListTables(con)
  dbTables <- dbTables[order(dbTables)]
  expect_equal(dbTables, c("SESSION", "USERS"))
})

test_that("Creating a user works", {
  con <- setupDatabase()
  on.exit(DBI::dbDisconnect(con))
  createUser(con, "user", "42")
  res <- DBI::dbGetQuery(con, "SELECT count(1) FROM USERS;")
  expect_equal(res[[1]], 1)
})

test_that("Check valid user credentials work", {
  con <- setupDatabase()
  on.exit(DBI::dbDisconnect(con))
  createUser(con, "user", "42")
  expect_equal(checkUserCredentials(con, "user", "42"), 1)
})

test_that("Check invalid user credentials don't work", {
  con <- setupDatabase()
  on.exit(DBI::dbDisconnect(con))
  createUser(con, "user", "42")
  expect_null(checkUserCredentials(con, "user2", "42"))
})

test_that("Check user exists checks work", {
  con <- setupDatabase()
  on.exit(DBI::dbDisconnect(con))
  createUser(con, "user", "42")
  expect_true(existsUser(con, "user"))
  expect_false(existsUser(con, "user2"))
})

test_that("Check wrong password doesn't work", {
  con <- setupDatabase()
  on.exit(DBI::dbDisconnect(con))
  createUser(con, "user", "42")
  expect_null(checkUserCredentials(con, "user", "56"))
})

test_that("Check empty username doesn't work", {
  con <- setupDatabase()
  on.exit(DBI::dbDisconnect(con))
  createUser(con, "user", "42")
  expect_null(checkUserCredentials(con, NULL, "42"))
})

test_that("Check invalid user credentials don't work", {
  con <- setupDatabase()
  on.exit(DBI::dbDisconnect(con))
  createUser(con, "user", "42")
  expect_null(checkUserCredentials(con, "user", NULL))
})