add test

Author: Mukulyadav2004

inst/tests/tests.Rraw

@@ -21072,5 +21072,10 @@ if (exists("sort_by", "package:base")) {
 
 #fix for (#6806)
 DT2 <- data.table(a = 1:3, b = 4:6)
-setindexv(DT2, c("b", "a"))
-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"))
+index_dt <- data.table(a = 1:2, b = 3:4) 
+toprint <- data.table(a = 1:3, b = 3:5)   
+show.indices <- TRUE
+if (!is.null(index_dt) && nrow(index_dt) != nrow(toprint)) {
+  show.indices <- FALSE
+}
+test(2307, print(show.indices), output = "FALSE")