Merge pull request #3432 from dolthub/vinai/bump-r-client-tests

Bump R Client Tests

integration-tests/mysql-client-tests/r/rmariadb-test.r

@@ -76,3 +76,14 @@ if (!ret) {
     print("Number of commits is incorrect")
     quit(1)
 }
+
+# Add a failing query and ensure that the connection does not quit.
+# cc. https://github.com/dolthub/dolt/issues/3418
+try(dbExecute(conn, "insert into test values (0, 1)"), silent = TRUE)
+one <- dbGetQuery(conn, "select 1 as pk")
+ret <- one == data.frame(pk=1)
+if (!ret) {
+    print("Number of commits is incorrect")
+    quit(1)
+}
+