test for assignment

Author: actuaryzhang

R/pkg/inst/tests/testthat/test_sparkSQL.R

@@ -1022,6 +1022,11 @@ test_that("select operators", {
                  "Subset index has length > 1. Only the first index is used.")
   expect_is(suppressWarnings(df[[c("name", "age")]]), "Column")
 
+  expect_warning(df[[1:2]] <- df[[1]],
+                 "Subset index has length > 1. Only the first index is used.")
+  expect_warning(df[[c("name", "age")]] <- df[[1]],
+                 "Subset index has length > 1. Only the first index is used.")
+
   expect_is(df[, 1, drop = F], "SparkDataFrame")
   expect_equal(columns(df[, 1, drop = F]), c("name"))
   expect_equal(columns(df[, "age", drop = F]), c("age"))