tests

Author: Mukulyadav2004

inst/tests/tests.Rraw

@@ -21045,16 +21045,33 @@ test(2305, { fread(testDir("issue_6729.txt.bz2")); TRUE })
 # Tests for print.data.table handling index columns, list classes, and unknown classes in #6806
 
 # Test for covering classes[col_name] <- "index"
-DT = data.table(A = 1:3, B = 4:6)
+DT <- data.table(A = 1:3, B = 4:6)
 setindex(DT, A)
-test(2306.1, DT, data.table(A = 1:3, B = 4:6))
+test(2306.1, {print(DT); capture.output(print(DT))}, 
+     c("   A B",
+       "1: 1 4",
+       "2: 2 5",
+       "3: 3 6"))
 # Test for covering if (is.list(cls)) cls <- unlist(cls)
-DT = data.table(A = 1:3, B = list(NULL, NULL, NULL))
-test(2306.2, DT, data.table(A = 1:3, B = list(NULL, NULL, NULL)))
+DT <- data.table(A = 1:3, B = list(NULL, NULL, NULL))
+test(2306.2, {print(DT); capture.output(print(DT))}, 
+     c("   A      B",
+       "1: 1 [NULL]",
+       "2: 2 [NULL]",
+       "3: 3 [NULL]"))
 # Test for covering if (length(cls) == 0) cls <- "unknown"
-DT = data.table(A = 1:3, B = I(list()))
-test(2306.3, DT, data.table(A = 1:3, B = I(list())))
+DT <- data.table(A = 1:3, B = I(list()))
+test(2306.3, {print(DT); capture.output(print(DT))}, 
+     c("   A      B",
+       "1: 1 [NULL]",
+       "2: 2 [NULL]",
+       "3: 3 [NULL]"))
 # Test for covering classes[col_name] <- "unknown"
-DT = data.table(A = 1:3, B = 4:6, C = 7:9)
+DT <- data.table(A = 1:3, B = 4:6, C = 7:9)
 if ("D" %in% colnames(DT)) DT[, D := NULL]
-test(2306.4, DT, data.table(A = 1:3, B = 4:6, C = 7:9))
+test(2306.4, {print(DT); capture.output(print(DT))}, 
+     c("   A B C",
+       "1: 1 4 7",
+       "2: 2 5 8",
+       "3: 3 6 9"))
+