add tests for numeric assignment

Author: ben-schwen

inst/tests/tests.Rraw

@@ -1409,8 +1409,11 @@ test(438.1, truelength(DT), tl)
 DT[,"bar"] = 8L
 test(438.2, truelength(DT), tl+2L)
 # also allow DT[[...]]= syntax #6734
-DT[["baz"]] = 9L
+DT[["baz"]] = 1L
 test(438.3, truelength(DT), tl+2L)
+test(483.4, DT$baz, c(1L,1L,1L))
+DT[[5]] = 9L
+test(438.5, truelength(DT), tl+3L)
 DT[[1,"qux"]] = 10L
 test(438.4, truelength(DT), tl+3L)
 test(438.5, DT, data.table(a=1:3,b=4:6,foo=7L,bar=8L,baz=9L,qux=c(10L,NA_integer_,NA_integer_)))