tests/testthat/test-mariadb-remote.R

In nodbi: Document 'NoSQL' Database DBI Connector

test_that("Source", {
  skip_if_no_mariadb()
  skip_on_cran()

  # creating database connection has
  # unique parameters, see README.Rmd
  dbSrcKey <- function() {
    testKey <- createKey()
    testSrc <- src_mariadb(
      dbname = "test",
      host = "ralfheroldmacbook2024.taile722d.ts.net",
      user = "nodbiuser",
      password = "nodbipwd"
    )
    return(list(testKey = testKey, testSrc = testSrc))
  }

  # test database set up
  tmp <- dbSrcKey()
  expect_is(tmp$testSrc, "docdb_src")
  expect_is(tmp$testSrc, "src_mariadb")
  expect_output(suppressWarnings(print(tmp$testSrc)), "src: MariaDB")
  RMariaDB::dbDisconnect(tmp$testSrc$con)
  rm(tmp)

  # run generic (database independent) tests
  source("core-nodbi.R", local = TRUE)

})