Introduce simulate_mariadb()

tidyverse · Oct 6, 2023 · 62c5eca · 62c5eca
1 parent 1e48cfa
commit 62c5eca
Show file tree

Hide file tree

Showing 4 changed files with 11 additions and 3 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -493,6 +493,7 @@ export(simulate_dbi)
 export(simulate_hana)
 export(simulate_hive)
 export(simulate_impala)
+export(simulate_mariadb)
 export(simulate_mssql)
 export(simulate_mysql)
 export(simulate_odbc)

diff --git a/R/backend-mysql.R b/R/backend-mysql.R
@@ -24,7 +24,11 @@ NULL
 
 #' @export
 #' @rdname backend-mysql
-simulate_mysql <- function() simulate_dbi("MariaDBConnection")
+simulate_mysql <- function() simulate_dbi("MySQLConnection")
+
+#' @export
+#' @rdname backend-mysql
+simulate_mariadb <- function() simulate_dbi("MariaDBConnection")
 
 #' @export
 dbplyr_edition.MariaDBConnection <- function(con) {

diff --git a/man/backend-mysql.Rd b/man/backend-mysql.Rd
diff --git a/tests/testthat/test-backend-mysql.R b/tests/testthat/test-backend-mysql.R
@@ -44,7 +44,7 @@ test_that("custom stringr functions translated correctly", {
 # verbs -------------------------------------------------------------------
 
 test_that("generates custom sql", {
-  con_maria <- simulate_mysql()
+  con_maria <- simulate_mariadb()
 
   expect_snapshot(sql_table_analyze(con_maria, in_schema("schema", "tbl")))
   expect_snapshot(sql_query_explain(con_maria, sql("SELECT * FROM table")))
@@ -57,7 +57,7 @@ test_that("generates custom sql", {
 
   expect_snapshot(copy_inline(con_maria, tibble(x = 1:2, y = letters[1:2])) %>% remote_query())
 
-  con_mysql <- simulate_dbi("MySQLConnection")
+  con_mysql <- simulate_mysql()
   expect_snapshot(copy_inline(con_mysql, tibble(x = 1:2, y = letters[1:2])) %>% remote_query())
 })