move setDT behavior test into tests.Rraw

Author: MichaelChirico

inst/tests/mergelist.Rraw

@@ -53,16 +53,6 @@ test(12.16, cbindlist(list(data.table(a=integer()), data.table(b=1:2)), copy=FAL
 test(12.17, cbindlist(list(data.table(a=1L), data.table(b=1:2)), copy=FALSE), error="have to have the same number of rows")
 
 ## retain indices
-local({
-  d = data.table(x=1:2, y=2:1, z=2:1, v1=1:2) ## ensure setDT will retain key and indices when it is called on the list, bc Ccbindlist returns list
-  setkeyv(d, "x"); setindexv(d, list("y", "z"))
-  a = attributes(d)
-  attributes(d) = a[!names(a) %in% c("class", ".internal.selfref", "row.names")]
-  test(13.01, class(d), "list")
-  setDT(d)
-  test(13.02, key(d), "x")
-  # test(13.03, hasindex(d, "y") && hasindex(d, "z"))
-})
 local({
   l = list(
     data.table(id1=1:5, id2=5:1, id3=1:5, v1=1:5),

inst/tests/tests.Rraw

@@ -21252,3 +21252,15 @@ it <- as.ITime('00:00:00')
 test(2323.1, names(data.frame(COL = it)), "COL")
 test(2323.2, names(data.frame(b = 1, COL = it)), c("b", "COL"))
 test(2323.3, names(as.data.frame(it, optional=TRUE)), NULL)
+
+## ensure setDT will retain key and indices when it is called on the list (cbindlist assumes this)
+local({
+  d = data.table(x=1:2, y=2:1, z=2:1, v1=1:2)
+  setkeyv(d, "x"); setindexv(d, list("y", "z"))
+  a = attributes(d)
+  attributes(d) = a[!names(a) %in% c("class", ".internal.selfref", "row.names")]
+  test(2324.01, class(d), "list")
+  setDT(d)
+  test(2324.02, key(d), "x")
+  test(2324.03, hasindex(d, "y") && hasindex(d, "z"))
+})