tests

Mukulyadav2004 · Mukulyadav2004 · commit c4eea22c20db · 2025-02-26T22:36:49.000+05:30
diff --git a/inst/tests/tests.Rraw b/inst/tests/tests.Rraw
@@ -21070,7 +21070,7 @@ if (exists("sort_by", "package:base")) {
   test(2306.24, DT1[, sort_by(.SD, ~.(a, b))], data.table(a=c(1, 2, 3, 3, NA), b=c(4L, 2L, 0L, 3L, 1L)))
 }
 
-#test for #6806
+#fix for (#6806)
 DT2 <- data.table(a = 1:3, b = 4:6)
 setindexv(DT2, c("b", "a"))
-test(1775.2,{ print(DT2); TRUE },options = c(datatable.show.indices = TRUE),output = c("Index: <b__a>", "   a b", "1: 1 4", "2: 2 5", "3: 3 6"))
+test(2307,{ print(DT2); TRUE },options = c(datatable.show.indices = TRUE),output = c("Index: <b__a>", "   a b", "1: 1 4", "2: 2 5", "3: 3 6"))

Original file line number	Diff line number	Diff line change
`@@ -21070,7 +21070,7 @@ if (exists("sort_by", "package:base")) {`
`21070`	`21070`	`test(2306.24, DT1[, sort_by(.SD, ~.(a, b))], data.table(a=c(1, 2, 3, 3, NA), b=c(4L, 2L, 0L, 3L, 1L)))`
`21071`	`21071`	`}`
`21072`	`21072`
`21073`		`-#test for #6806`
	`21073`	`+#fix for (#6806)`
`21074`	`21074`	`DT2 <- data.table(a = 1:3, b = 4:6)`
`21075`	`21075`	`setindexv(DT2, c("b", "a"))`
`21076`		`-test(1775.2,{ print(DT2); TRUE },options = c(datatable.show.indices = TRUE),output = c("Index: <b__a>", " a b", "1: 1 4", "2: 2 5", "3: 3 6"))`
	`21076`	`+test(2307,{ print(DT2); TRUE },options = c(datatable.show.indices = TRUE),output = c("Index: <b__a>", " a b", "1: 1 4", "2: 2 5", "3: 3 6"))`