tests/testthat/test-dataHash.R

library(testthat)

for (testServer in testServers) {
  test_that(addDbmsToLabel("Compute data hash", testServer), {
    connection <- connect(testServer$connectionDetails)
    on.exit(disconnect(connection))
    hash <- computeDataHash(connection, testServer$cdmDatabaseSchema)
    expect_true(is.character(hash))
  })
}

Try the DatabaseConnector package in your browser

Any scripts or data that you put into this service are public.

DatabaseConnector documentation built on May 29, 2024, 6:14 a.m.