tighten up tests

Author: MichaelChirico

inst/tests/tests.Rraw

@@ -21217,11 +21217,10 @@ setDT(get0("dt_get0"))
 test(2319.2, !is.null(attr(dt_get0, ".internal.selfref")))
 
 # Create a data.table when one vector is transposed doesn't respect the name defined by user #4124
-test(2320.1, data.table(a=1:2, b=matrix(1:2)), data.table(a=1:2, b=1:2))
-test(2320.2, names(data.table(a=1:2, b=matrix(1:2))), names(data.frame(a=1:2, b=matrix(1:2))))
-test(2320.3, data.table(a=1L[0L], b=matrix(1L)[0L]), data.table(a=1L[0L], b=1L[0L])) # length 0
-test(2320.4, names(data.table(a=1L[0L], b=matrix(1L)[0L])), names(data.frame(a=1L[0L], b=matrix(1L)[0L])))
+test(2320.1, DT <- data.table(a=1:2, b=matrix(1:2)), data.table(a=1:2, b=1:2))
+test(2320.2, names(DT), names(data.frame(a=1:2, b=matrix(1:2))))
+test(2320.3, DT <- data.table(a=integer(), b=matrix(1L, nrow=0L, ncol=1L)), data.table(a=integer(), b=integer()))
+test(2320.4, names(DT), names(data.frame(a=integer(), b=matrix(1L, nrow=0L, ncol=1L))))
 # data.table(vector, matrix) can return duplicate column names #3193
-is.unq = function(x) length(unique(x)) == length(x)
-test(2320.5, is.unq(names(data.table(1:5, matrix(6:15, nrow = 5L)))))
-test(2320.6, is.unq(names(data.table(1L[0L], matrix(6:15, nrow=5L)[0L]))))
+test(2320.5, anyDuplicated(names(data.table(1:5, matrix(6:15, nrow = 5L)))), 0L)
+test(2320.6, anyDuplicated(names(data.table(integer(), matrix(1L, nrow=0L, ncol=2L)))), 0L)