gpkg_table_pragma: fix test that may generate warnings

brownag · Apr 20, 2024 · f9d845d · f9d845d
1 parent 6ccbc9f
commit f9d845d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/inst/tinytest/test_gpkg.R b/inst/tinytest/test_gpkg.R
@@ -121,7 +121,7 @@ expect_true(gpkg_add_contents(g3, "foo", "bar",
 expect_true(gpkg_write_attributes(g3, data.frame(id = 1), "A", "the letter A"))
 
 # try various 'lazy' accessor methods
-expect_silent({d1 <- gpkg_table_pragma(g3$dsn, "gpkg_contents")})
+suppressWarnings({d1 <- gpkg_table_pragma(g3$dsn, "gpkg_contents")})
 expect_true(inherits(d1, 'data.frame'))
 expect_true(inherits(gpkg_table_pragma(g3, "gpkg_contents"), 'data.frame'))