test: add more tests for arrow package

tests/testthat/test-as_polars.R

@@ -16,7 +16,8 @@ make_as_polars_df_cases = function() {
     "polars_lazy_rolling_group_by", pl$LazyFrame(test_df)$rolling("col_int", period = "1i"),
     "polars_group_by_dynamic", pl$DataFrame(test_df)$group_by_dynamic("col_int", every = "1i"),
     "polars_lazy_group_by_dynamic", pl$LazyFrame(test_df)$group_by_dynamic("col_int", every = "1i"),
-    "arrow Table", arrow::as_arrow_table(test_df)
+    "arrow Table", arrow::as_arrow_table(test_df),
+    "arrow RecordBatch", arrow::as_record_batch(test_df),
   )
 }
 
@@ -166,3 +167,31 @@ test_that("tests for vctrs_rcrd", {
     c(2L, 1L)
   )
 })
+
+
+test_that("can convert an arrow Table contains dictionary<large_string, uint32> type", {
+  skip_if_not_installed("arrow")
+
+  da_string = arrow::Array$create(
+    factor(c("x", "y", "z"))
+  )
+
+  da_large_string = da_string$cast(
+    arrow::dictionary(
+      index_type = arrow::uint32(),
+      value_type = arrow::large_utf8()
+    )
+  )
+
+  at = arrow::arrow_table(foo = da_string, bar = da_large_string)
+  pdf = as_polars_df.ArrowTabular(at)
+
+  expect_s3_class(pdf, "RPolarsDataFrame")
+  expect_equal(
+    pdf$to_data_frame(),
+    data.frame(
+      foo = factor(c("x", "y", "z")),
+      bar = factor(c("x", "y", "z"))
+    )
+  )
+})