updated test

Author: venom1204

inst/tests/tests.Rraw

@@ -21776,7 +21776,7 @@ dt = data.table(a=1:3)
 test(2377.91, truelength(dt$a), 0L)
 test(2377.92, {setallocrow(dt); truelength(dt$a)}, 3L)
 
-# 7431 warn when .SD is returned after local assignment to .SD columns
+# #7431 warn when .SD is returned after local assignment to .SD columns
 test(2378.1, {DT=data.table(a=1:3,b=1:3); DT[, {b[2] = 0L; .SD}]}, data.table(a=1:3,b=1:3), warning="Local assignment to column\\(s\\) \\[b\\] detected in 'j' while also using \\.SD")
 test(2378.2, {DT=data.table(a=1:3,b=1:3,d=1:3); DT[a %in% 1:2, {b[d==2L] = 0L; .SD}]}, data.table(a=1:2,b=1:2,d=1:2), warning="Local assignment to column\\(s\\) \\[b\\] detected in 'j' while also using \\.SD")
 test(2378.3, {DT=data.table(a=1:3,b=1:3); DT[, {x = b; x[2] = 0L; .SD}]}, data.table(a=1:3,b=1:3))