[arrow-nanoarrow] branch main updated: chore(r): Fix partial matching warning in tests (#198)

[pa...@apache.org]

This is an automated email from the ASF dual-hosted git repository.

paleolimbot pushed a commit to branch main
in repository https://gitbox.apache.org/repos/asf/arrow-nanoarrow.git


The following commit(s) were added to refs/heads/main by this push:
     new fff5c8e  chore(r): Fix partial matching warning in tests (#198)
fff5c8e is described below

commit fff5c8ecfa71ef452fbdff3ffbf33a1002bdc2b2
Author: Kirill Müller <kr...@users.noreply.github.com>
AuthorDate: Mon May 22 04:17:53 2023 +0200

    chore(r): Fix partial matching warning in tests (#198)
    
    Seen on my system with `options(warnPartialMatchDollar = TRUE)` .
---
 r/tests/testthat/test-schema.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/r/tests/testthat/test-schema.R b/r/tests/testthat/test-schema.R
index e612647..93e94b0 100644
--- a/r/tests/testthat/test-schema.R
+++ b/r/tests/testthat/test-schema.R
@@ -552,8 +552,8 @@ test_that("<- assignment works for schema$children", {
 
   names(schema$children)[1] <- "col1_new"
   expect_named(schema$children, c("col1_new", "col2"))
-  expect_identical(schema$children$col1$format, "b")
-  expect_identical(schema$children$col1$name, "col1_new")
+  expect_identical(schema$children$col1_new$format, "b")
+  expect_identical(schema$children$col1_new$name, "col1_new")
 })
 
 test_that("<- assignment works for schema$metadata", {