Change the schema to non-default to see if getting retained

r/tests/testthat/test-dataset-csv.R

@@ -595,20 +595,24 @@ test_that("CSVReadOptions field access", {
 })
 
 test_that("GH-34640 - CSV datasets are read in correctly when both schema and partitioning supplied", {
+
+  target_schema <- schema(
+      int = int64(), dbl = float16(), lgl = bool(), chr = utf8(),
+      fct = utf8(), ts = timestamp(unit = "s"), part = int32()
+    )
+
   ds <- open_dataset(
     csv_dir,
     partitioning = schema(part = int32()),
     format = "csv",
-    schema(
-      int = int64(), dbl = int64(), lgl = bool(), chr = utf8(),
-      fct = utf8(), ts = timestamp(unit = "s"), part = int32()
-    ),
+    schema = target_schema,
     skip = 1
   )
   expect_r6_class(ds$format, "CsvFileFormat")
   expect_r6_class(ds$filesystem, "LocalFileSystem")
   expect_identical(names(ds), c(names(df1), "part"))
   expect_identical(dim(ds), c(20L, 7L))
+  expect_equal(schema(ds), target_schema)
 
   expect_equal(
     ds %>%