test

Mukulyadav2004 · Mukulyadav2004 · commit 657cf177adc5 · 2025-02-26T22:32:28.000+05:30
diff --git a/inst/tests/tests.Rraw b/inst/tests/tests.Rraw
@@ -21069,3 +21069,8 @@ if (exists("sort_by", "package:base")) {
   test(2306.23, DT1[, sort_by(.SD, ~a + b)], data.table(a=c(1, 2, 3, 3, NA), b=c(4L, 2L, 0L, 3L, 1L)))
   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
+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"))

Original file line number	Diff line number	Diff line change
`@@ -21069,3 +21069,8 @@ if (exists("sort_by", "package:base")) {`
`21069`	`21069`	`test(2306.23, DT1[, sort_by(.SD, ~a + b)], data.table(a=c(1, 2, 3, 3, NA), b=c(4L, 2L, 0L, 3L, 1L)))`
`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`	`+`
	`21073`	`+#test for #6806`
	`21074`	`+DT2 <- data.table(a = 1:3, b = 4:6)`
	`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"))`