regression test

Author: aitap

inst/tests/tests.Rraw

@@ -21921,3 +21921,14 @@ rm(DTn, DTl, DT)
 DT = unserialize(serialize(as.data.table(mtcars), NULL))
 test(2353, DT[,foo:=mean(mpg),by=cyl], as.data.table(mtcars)[,foo:=mean(mpg),by=cyl])
 rm(DT)
+
+# as.data.table.array(x) shouldn't overwrite dimnames(x), #7506
+Xdn = list(foo = letters[1:2], bar = LETTERS[1:3], baz = as.character(1:4))
+X = array(1:24, 2:4, copy(Xdn))
+DT = as.data.table(X)
+test(2354.1, dimnames(X), Xdn)
+Xdn['baz'] = list(NULL)
+dimnames(X) = copy(Xdn)
+DT = as.data.table(X)
+test(2354.2, dimnames(X), Xdn)
+rm(X, Xdn, DT)