Add test

r-dbi · Oct 6, 2023 · 1a505f2 · 1a505f2
1 parent 5353eb2
commit 1a505f2
Showing 1 changed file with 15 additions and 0 deletions.
diff --git a/tests/testthat/test-dbConnect.R b/tests/testthat/test-dbConnect.R
@@ -0,0 +1,15 @@
+test_that("Connecting with mysql = FALSE", {
+  con <- mariadbDefault()
+  on.exit(dbDisconnect(con))
+
+  expect_s4_class(con, "MariaDBConnection")
+  expect(!is(con, "MySQLConnection"))
+})
+
+test_that("Connecting with mysql = TRUE", {
+  con <- mysqlDefault()
+  on.exit(dbDisconnect(con))
+
+  expect_s4_class(con, "MariaDBConnection")
+  expect_s4_class(con, "MySQLConnection")
+})