add coverage tests

Author: Mukulyadav2004

inst/tests/tests.Rraw

@@ -21365,3 +21365,9 @@ test(2328.1, levels(droplevels(DT)$f), character())
 DT[, i := integer()]
 DT[, f2 := factor()]
 test(2328.2, droplevels(DT), data.table(f=factor(), i=integer(), f2=factor()))
+
+# Row name extraction from multiple vectors, #7136
+x <- c(1, 2, 3)  
+y <- setNames(c(4, 5, 6), c("A", "B", "C"))  
+test(2329.1, as.data.table.list(list(x, y), keep.rownames=TRUE), data.table(rn=c("A", "B", "C"), X=x, Y=unname(y)))
+test(2329.2, as.data.table.list(list(x, y), keep.rownames="custom"), data.table(custom=c("A", "B", "C"), X=x, Y=unname(y)))