Update test for new arrow release (#764)

* Update test for new arrow release * Update NEWS
rstudio · Aug 16, 2023 · 4500de2 · 4500de2
1 parent c72356e
commit 4500de2
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 4 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -5,6 +5,8 @@
 
 * Added new board for Google Drive `board_gdrive()` (#749).
 
+* Updated test for new arrow release (#764).
+
 # pins 1.2.0
 
 ## Breaking changes

diff --git a/tests/testthat/test-pin-read-write.R b/tests/testthat/test-pin-read-write.R
@@ -4,21 +4,21 @@ test_that("can round trip all types", {
   board <- board_temp()
 
   # Data frames
-  df <- data.frame(x = 1:10)
+  df <- tibble::tibble(x = 1:10)
   pin_write(board, df, "df-1", type = "rds")
   expect_equal(pin_read(board, "df-1"), df)
 
   pin_write(board, df, "df-2", type = "parquet")
   expect_equal(pin_read(board, "df-2"), df)
 
   pin_write(board, df, "df-3", type = "arrow")
-  expect_equal(pin_read(board, "df-2"), df)
+  expect_equal(pin_read(board, "df-3"), df)
 
   pin_write(board, df, "df-4", type = "csv")
-  expect_equal(pin_read(board, "df-3"), df)
+  expect_equal(pin_read(board, "df-4"), as.data.frame(df))
 
   pin_write(board, df, "df-5", type = "qs")
-  expect_equal(pin_read(board, "df-4"), df)
+  expect_equal(pin_read(board, "df-5"), df)
 
   # List
   x <- list(a = 1:5, b = 1:10)