simplify tests

Author: MichaelChirico

inst/tests/tests.Rraw

@@ -21408,20 +21408,20 @@ dt = data.table(a = NA_integer_, b = NaN)
 test(2329.3, print(dt, col.names = "none"), output = "1: NA NaN\n")
 
 # Row name extraction from multiple vectors, #7136
-x <- c(1, 2, 3)  
-y <- setNames(c(4, 5, 6), c("A", "B", "C"))  
-test(2330.1, as.data.table(list(x, y), keep.rownames=TRUE), data.table(rn=c("A", "B", "C"), V1=c(1, 2, 3), V2=c(4, 5, 6)))
-test(2330.2, as.data.table(list(x, y), keep.rownames="custom"), data.table(custom=c("A", "B", "C"), V1=c(1, 2, 3), V2=c(4, 5, 6)))
-test(2330.3, as.data.table(list(y, x), keep.rownames=TRUE), data.table(rn=c("A", "B", "C"), V1=c(4, 5, 6), V2=c(1, 2, 3))) 
+x <- 1:3 
+y <- setNames(4:6, c("A", "B", "C"))  
+test(2330.1, as.data.table(list(x, y), keep.rownames=TRUE), data.table(rn=c("A", "B", "C"), V1=1:3, V2=4:6))
+test(2330.2, as.data.table(list(x, y), keep.rownames="custom"), data.table(custom=c("A", "B", "C"), V1=1:3, V2=4:6))
+test(2330.3, as.data.table(list(y, x), keep.rownames=TRUE), data.table(rn=c("A", "B", "C"), V1=4:6, V2=1:3)) 
 
 # Behavior under data.frame()
-test(2330.4, as.data.table(data.frame(x, y), keep.rownames=TRUE), data.table(rn=c("A", "B", "C"), x=c(1, 2, 3), y=c(4, 5, 6)))
-test(2330.5, as.data.table(data.frame(y, x), keep.rownames=TRUE), data.table(rn=c("A", "B", "C"), y=c(4, 5, 6), x=c(1, 2, 3)))
+test(2330.4, as.data.table(data.frame(x, y), keep.rownames=TRUE), data.table(rn=c("A", "B", "C"), x=1:3, y=4:6))
+test(2330.5, as.data.table(data.frame(y, x), keep.rownames=TRUE), data.table(rn=c("A", "B", "C"), y=4:6, x=1:3))
 
-a <- setNames(c(7, 8, 9), c("", "", ""))    # test condition about any(nzchar(valid_names))
-test(2330.6, as.data.table(list(a), keep.rownames=TRUE), data.table(V1=c(7, 8, 9)))
-b <- setNames(c(10, 11, 12), c("", "B", ""))
-test(2330.7, as.data.table(list(b), keep.rownames=TRUE), data.table(rn=c("", "B", ""), V1=c(10, 11, 12)))
+a <- setNames(7:9, c("", "", ""))    # test condition about any(nzchar(valid_names))
+test(2330.6, as.data.table(list(a), keep.rownames=TRUE), data.table(V1=7:9))
+b <- setNames(10:12, c("", "B", ""))
+test(2330.7, as.data.table(list(b), keep.rownames=TRUE), data.table(rn=c("", "B", ""), V1=10:12))
 
 DF <- data.frame(row.names = letters[1:6], V = 1:6)     # Test data.frame with explicit rownames
-test(2330.8, as.data.table(list(a = 6:1, DF), keep.rownames=TRUE), data.table(rn=c("a", "b", "c", "d", "e", "f"), a=6:1, V=1:6))
+test(2330.8, as.data.table(list(a = 6:1, DF), keep.rownames=TRUE), data.table(rn=letters[1:6], a=6:1, V=1:6))