non-update-join test

Author: MichaelChirico

inst/tests/tests.Rraw

@@ -21143,7 +21143,10 @@ class(DF2) = c("tbl_df", "tbl", "data.frame")
 
 test(2316.1, DT1[DT2, on='a', c := i.c]$c, 3)
 test(2316.2, DT1[DT2, on='a', c2 := x.a + i.c]$c2, 4)
-test(2316.3, DT1[DF1, on='a', d := i.d]$d, 4)
-test(2316.4, DT1[DF1, on='a', d2 := x.a + i.d]$d2, 5)
-test(2316.5, DT1[DF2, on='a', e := i.e]$e, 5)
-test(2316.6, DT1[DF2, on='a', e2 := x.a + i.e]$e2, 6)
+test(2316.3, DT1[DT2, on='a', .(c = x.a + i.c)]$c, 4)
+test(2316.4, DT1[DF1, on='a', d := i.d]$d, 4)
+test(2316.5, DT1[DF1, on='a', d2 := x.a + i.d]$d2, 5)
+test(2316.6, DT1[DF1, on='a', .(d = x.a + i.d)]$d, 5)
+test(2316.7, DT1[DF2, on='a', e := i.e]$e, 5)
+test(2316.8, DT1[DF2, on='a', e2 := x.a + i.e]$e2, 6)
+test(2316.9, DT1[DF2, on='a', .(e = x.a + i.e)]$e, 6)