diff --git a/tests/testthat/test_read.R b/tests/testthat/test_read.R
index 9aef5e5a0..d3bfd10bc 100644
--- a/tests/testthat/test_read.R
+++ b/tests/testthat/test_read.R
@@ -114,7 +114,7 @@ test_that("duckdb_read_csv() works as expected", {
   na_strings <- data.frame(num=c(0.5, 2, NA), char=c('yes', 'no', NA), logi=c(TRUE, FALSE, NA), lisst=c(list(1), list(2, 3), NA))
   write.csv(na_strings, tf3, row.names = FALSE)
   duckdb_read_csv(con, "na_table", tf3, na.strings = "-")
-  identical(
+  expect_identical(
     dbReadTable(con, "na_table"),
     read.csv(tf3, na.strings = "-")
   )