Added test for dbQuoteString (#228)

Author: ankane

tests/testthat/test-dbQuoteString.R

@@ -0,0 +1,11 @@
+context("dbQuoteString")
+
+test_that("quoting works", {
+  if (!mysqlHasDefault()) skip("Test database not available")
+
+  con <- dbConnect(MySQL(), dbname = "test")
+  on.exit(dbDisconnect(con))
+
+  expect_equal(dbQuoteString(con, "\\'"), SQL("'\\\\\\''"))
+  expect_equal(dbQuoteString(con, "'"), SQL("'\\''"))
+})