if (has_test && is_not_cran) {
context("RSQLServer")
test_that("get_server_details works", {
file <- system.file("extdata", "sql.yaml", package = "RSQLServer")
server_details <- get_server_details("SQL_PROD", file)
expect_true(is.list(server_details))
expected_names <-
c("server", "type", "port", "domain", "user", "password", "useNTLMv2")
expect_equal(names(server_details), expected_names)
expect_null(get_server_details("SQL_UAT", file))
expect_error(get_server_details("SQL_TYPE_ERROR", file))
expect_error(get_server_details("SQL_PORT_ERROR", file))
})
test_that("jtds_url works", {
file <- system.file("extdata", "sql.yaml", package = "RSQLServer")
sd <- get_server_details("SQL_PROD", file)
expected_url <- "jdbc:jtds:sqlserver://11.1.111.11:1433/test"
expect_equal(jtds_url(sd$server, sd$type, sd$port, "test"), expected_url)
expected_url <- "jdbc:jtds:sqlserver://11.1.111.11:1433/test;useNTLMv2=true;domain=corpname"
expect_equal(jtds_url(sd$server, sd$type, sd$port, "test",
list(useNTLMv2 = 'true', domain = 'corpname')), expected_url)
})
test_that("have_test_server and SQLServerConnection work", {
if (have_test_server("sqlserver")) {
conn <- dbConnect(SQLServer(), "TEST")
expect_is(conn, "SQLServerConnection")
}
})
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.