Remove table after test

r-dbi · Oct 23, 2020 · cccfcf7 · cccfcf7
1 parent c68cc94
commit cccfcf7
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/tests/testthat/test-SQLServer.R b/tests/testthat/test-SQLServer.R
@@ -151,6 +151,7 @@ test_that("SQLServer", {
     # dbWriteTable errors if field.types don't exist (#271)
     con <- DBItest:::connect(DBItest:::get_default_context())
 
+    on.exit(dbRemoveTable(con, "foo"), add = TRUE)
     expect_warning(
       dbWriteTable(con, "foo", iris, field.types = list(bar = "[int]")),
       "Some columns in `field.types` not in the input, missing columns:"