combine old & new tests

Author: MichaelChirico

inst/tests/tests.Rraw

@@ -15879,8 +15879,11 @@ test(2074.03, data.table(grade=c(50L, 91L, 95L, 51L, 89L))[ , .N, by=evaluate(gr
      data.table(evaluate=c('F', 'A', 'B'), N=c(2L, 2L, 1L)))
 ## error: use recursive character list indexing to assign when also doing alloc.col()
 opt = options(datatable.alloccol=1L)
-l = list(foo = list(bar = data.table(a = 1:3, b = 4:6)))
-test(2074.04, l[[c('foo', 'bar')]][ , (letters) := 16:18], error='Invalid set* operation on a recursive index L[[i]]')
+l = list(foo=list(bar=data.frame(a=1:3, b=4:6)))
+test(2074.041, setDT(l[[c('foo', 'bar')]]), error='Invalid set* operation on a recursive index L[[i]]')
+setDT(l[['foo']][['bar']])
+test(2074.042, is.data.table(l[[c('foo', 'bar')]]))
+test(2074.043, l[[c('foo', 'bar')]][ , (letters) := 16:18], error='Invalid set* operation on a recursive index L[[i]]')
 options(opt)
 ## alloc.col when using 0-truelength j assigning to a subset
 DT = data.table(a=1)
@@ -21167,9 +21170,3 @@ test(2317.6, DT1[DF1, on='a', .(d = x.a + i.d)]$d, 5)
 test(2317.7, DT1[DF2, on='a', e := i.e]$e, 5)
 test(2317.8, DT1[DF2, on='a', e2 := x.a + i.e]$e2, 6)
 test(2317.9, DT1[DF2, on='a', .(e = x.a + i.e)]$e, 6)
-
-# Test for issue #6702
-test(2318.1, {
-  data_store = list(nested = list(df_to_fix = data.frame(id = 1:3, val = letters[1:3])))
-  setDT(data_store[[c("nested", "df_to_fix")]])
-}, error = "Cannot assign with a recursive index of length")